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CHAPTER  1 


INTRODUCTION 

1,1.  Purpose  and  Scope  of  Study 

This  report  presents  a systematic  design  approach  that  accounts  for  pro- 
jected structural  damage  that  may  be  inflicted  during  the  life  of  a structure. 
This  is  called  "fail-safe  structural  design." 

Definition  1.1.  Fail-Safe  Structure:  A structure  is  called  fail-safe  or 
damage  tolerant  if  it  continues  to  perform  its  basic  functions  even  after  sus- 
taining a specified  level  of  damage. 

Definition  1.2.  Damage  Condition:  A damage  condition  for  a structure 
is  defined  as  complete  or  partial  removal  of  selected  members  or  parts  of 
the  structure.  Some  joints  of  the  structure  may  be  removed  as  a result  of 
the  damage.  A structure  that  has  sustained  the  specified  damage  is  called  a 
damaged  structure. 

Definition  1.3.  Optimal  Fail-Safe  Structure:  A fail-safe  or  damage 
tolerant  structure  is  called  optimal  if  its  design  minimizes  a cost  function 
and  satisfies  constraints  that  must  hold  for  the  undamaged  structure  and  for 
projected  damage  conditions. 

A basic  assumption  in  the  method  is  that  the  structure  remains  geometri- 
cally stable  after  the  specified  damage  to  its  members  or  joints.  In  other 
words  the  structure  does  not  fail  catastrophically  in  a mechanism-type  motion 
after  damage  occurs.  The  structure  is  thus  assumed  to  have  enough  redundancy 
in  its  construction. 

One  of  the  contributions  of  this  report  is  in  the  development  of  a de- 
sign sensitivity  analysis  method  for  fail-safe  design  with  substructuring. 

Once  design  sensitivity  information  is  known  the  designer  can  either  use  it 
in  an  optimal  design  procedure  or  he  may  use  it  to  aid  his  intuition  in  adjus- 
ting design  parameters  to  meet  his  objectives.  Incorporation  of  substructur- 
ing in  the  fail-safe  optimal  design  procedure  is  of  critical  importance  since 
it  makes  the  design  sensitivity  analysis  and  the  structural  analysis  effi- 
cient. This  allows  the  designer  to  consider  a large  number  of  damage  condi- 
tions  that  may  occur  in  large  practical  structures,  without  excessive  compu- 
ting effort.  The  main  reason  for  this  high  efficiency  is  that  when  damage 
occurs  to  certain  parts  of  the  structure,  the  structural  stiffness  and  mass 
matrices  are  modified  only  for  those  portions  of  the  structure.  This  repre- 
sents a small  change  in  structural  analysis  with  substructuring,  whereas 


without  substructuring,  the  stiffness  and  mass  matrices  for  the  complete  struc- 
ture will  be  changed,  making  the  structural  analysis  computationally  expensive. 

The  optimal  design  algorithm  for  fail-safe  structural  design  using  the 
substructuring  concept  is  first  presented.  The  method  is  then  applied  to 
aircraft  structures,  such  as  a truss  representation  of  the  helicopter  tail 
boom  that  was  previously  optimized  by  a similar  method  without  substructuring. 
Optimum  designs  without  substructuring  that  are  obtained  by  using  the  compu- 
ter code  of  Ref.  1 are  given  in  Appendix  A.  Results  obtained  with  the  sub- 
structuring formulation  are  then  compared  with  the  previous  results. 

The  optimal  design  algorithm  takes  into  account  the  following  considera- 
tions : 

(a)  Multiple  loading  conditions 

(b)  Various  type  of  finite  elements:  truss,  constant  strain  triangle,  and 
symmetric  shear  panel 

(c)  Several  elements  of  the  structure  may  be  assigned  same  design  value  and 
if  required,  can  be  kept  fixed  throughout  or  for  a few  iterations  of  the 
optimization  process 

(d)  Damage  that  may  occur  to  some  elements  and/or  nodes  of  the  structure. 

1.2.  Review  of  Literature 

The  concept  of  fail-safe  optimal  design  of  structures  is  relatively  new. 

In  Ref.  2 (Chapter  11),  a comprehensive  review  of  literature  relative  to  fail- 
safe design  of  structures  was  conducted.  No  significant  literature  was  found 
related  to  optimal  design  of  fail-safe  structures. 

The  concept  of  substructuring  in  optimal  design  of  structures  was  recent- 
ly presented  by  Govil,  Arora  and  Haug  [3] . It  was  shown  that  the  idea  of  par- 
titioning a large  structure  into  a number  of  smaller  substructures  is  profi- 
table, since  the  total  computational  effort  is  reduced  with  incorporation  of 
substructuring  into  the  optimization  algorithm. 

The  purpose  of  this  report  is  to  integrate  concepts  of  fail-safe  design 
and  substructuring  in  order  to  develop  and  demonstrate  an  efficient  approach 
to  optimal  design  of  fail-safe  structures. 

1.3.  Notation 

A standard  matrix  and  vector  notation  is  used  throughout  the  report.  All 
symbols  are  presumed  to  be  matrices  or  vectors,  unless  stated  otherwise.  A 
superscript  T is  used  to  denote  transpose  of  a matrix  or  vector. 
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CHAPTER  2 

FAIL-SAFE  OPTIMAL  DESIGN  WITH  SUBSTRUCTURING 
2.1.  Introduction 


In  this  chapter,  the  fail-safe  optimal  design  problem  with  substructur- 
ing (FSODPS)  is  formulated.  Constraints  are  imposed  on  member  stresses,  no- 
dal displacements,  and  natural  frequency  under  all  loading  and  damage  condi- 
tions. Constraints  that  are  independent  of  load  and  damage  conditions  are 
also  imposed.  Design  sensitivity  analysis  is  developed  and  an  algorithm  is 
presented  in  a convenient  step-by-step  format. 

The  concepts  of  fail-safe  design  and  substructuring  in  optimal  struc- 
tural design  are  presented  in  Refs.  2 and  3.  Details  of  structural  analysis 
with  substructuring  are  presented  in  Ref.  4.  However,  structural  analysis 
equations  are  required  throughout  the  development  of  the  algorithm,  so  they 
are  summarized  here. 

2.2.  Structural  Analysis  by  Substructuring 
2.2.1.  Static  Analysis 

The  equilibrium  equation  (state  equation)  in  terms  of  displacements, 
for  a given  damaged  condition  a,  is  given  as  [4]; 

K(a)(b)  z(a)  = S(a)(b)  (2.2-1) 

where 

(a) 

K (b)  = NxN  structural  stiffness  matrix 
(u) 

S (b)  = vector  of  N effective  nodal  loads  on  the  structure 

(a) 

z = state  variable  vector  of  N nodal  displacements 

a = a superscript  used  to  represent  a damaged  condition; 

for  convenience  a=0  represents  the  undamaged  struc- 
ture. 

N = number  of  degrees  of  freedom  of  the  structure 

b = a vector  of  D design  variables,  such  as  cross-section- 

al areas,  moments  of  inertia,  thickness  and  widths. 
Using  the  substructuring  concept,  state  equation  2.2-1  is  written  as: 
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(2.2-1) 


where 


'4b1 

K (c* ) 
Si 

z(a) 

B 

H 

o (a) 

B 

F(a) 

kib 

K(a) 

KII 

(a) 

L 1 J 

4“’ 

B,I  = subscripts  refering  to  boundary  and  interior  quan- 

tities for  all  substructures 

z^a^eRn  = a vector  of  boundary  displacements  for  the  entire 
structure 

n = boundary  degrees  of  freedom  for  the  entire  struc- 

ture 

Zj^eRm  = a vector  of  interior  displacements  for  the  entire 
structure 

m = interior  degrees  of  freedom  for  the  entire  struc- 

ture 


ir(a)  „(a) 

oB  * bI 
(a)  (a) 

KIB  * KII 


} 


- submatrices  of  K^a^(b) 


.(a) 


.(a) 


= a vector  of  externally  applied  loads  associated 
with  the  boundary  degrees  of  freedom 

= a vector  of  externally  applied  loads  associated 
with  the  interior  degrees  of  freedom 


Submatrices  such  ad  , SgU\  have  compatible  dimensions  and  will  be 

understood  to  be  functions  of  the  design  variable  vector  b. 

The  interior  displacements  z^a^  are  first  eliminated  from  Equation  2.2-2 
and  the  following  reduced  equation  is  obtained 


where 


- <“>  ♦ k£V“> 

F(a)  = s(«)  + q(«)Ts(a) 

O D 


(2.2-3) 


(2.2-4) 

(2.2-5) 

(2.2-6) 
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Here,  is  a boundary  stiffness  matrix  for  the  entire  structure  and  Rn 

is  the  vector  of  effective  boundary  forces.  Efficient  numerical  procedures 

are  used  to  decompose  and  then  to  solve  for  Q^°^(mxn)  in  Equation  2.2-6. 

(ct  ) ( ■ i) 

The  boundary  stiffness  K and  the  effective  boundary  force  vector  F„ 

b b 

are  synthesized  by  considering  contributions  from  all  substructures.  For  this 

purpose,  the  equilibrium  equation  fo'r  a substructure,  which  is  considered  as 

an  isolated  free-body,  is  also  expressed  in  the  partitioned  form 


(r,ot)  „ (r  ,a) 

kbb  k 

(r,a)  (r,a) 

kib  kii 


,(r,cx) 


(r,a) 


,(r,a) 


,(r,a) 


(2.2-7) 


where  the  superscript  r refers  to  the  ru  substructure  and  subscripts  B and  I 


refer  to  boundary  and  interior  quantities.  The  vector  S 


(r,a) 


represents  loads 


that  are  applied  at  the  boundary  nodes  and  reaction  forces  due  to  adjoining 
substructures.  Let  N(r)  and  m(r)  represent  the  number  of  boundary  and  interior 
coordinates  of  the  rth  substructure,  respectively.  It  may  be  noted  that 


m = \ m(r) 
r=l 

where  L is  the  total  number  of  substructures.  Dimensions  of  various  matrices 
are:  Kgg’“^  is  (n(r)xn(r)),  is  (m(r)xn(r)),  K^’0^  is  (n(r)xn(r)) 

(r,u)  . „ (r , a)  „n(r)  . (r,a)  c(r,a)  Dm(r)  , ..  c 

z and  S„  eR  , and  zT  and  ST  R . From  the  second  line  of 

D B 11 

Equation  2.2-7, 


;(r,a)  . ^K(r,a)j“]  £s<r,a)  _ K<r,a)  z(r,a)J 


(2.2-8) 


Substituting  Equation  2.2-8  into  the  first  line  of  Equation  2.2-7,  one 


obtains : 


(r,a)  (r ,a)  _ F(r,a) 
KB  ZB  “ fb 


(2.2-9) 


where 


KBr’a)  " ^B,a)  + ^’a) 

T 

p(r,a)  = g (r » ct)  + „(r,a)  g(r,a) 


(2.2-10) 


(2.2-11) 


,(r,a) 


[«H  1 


9 


(2.2-12) 


1 


The  (n(r)  x n(r))  boundary  stiffness  matrix  K^r,a^  and  the  (n(r)  x 1)  effec- 
tive boundary  force  vector  F^r,ct^  for  each  substructure  are  computed  from 

B 

Equations  2.2-10  and  2.2-11,  respectively.  Finally,  and  Ffi  are  assembled 
according  to  the  equations 


K<a)  = l 3(r)Vr’a)B(r) 

r=l 


(2.2-13) 


p(a)  . s(a)  + £ g(r)TQ(r,a)Ts(r,a) 

r=l 


(2.2-14) 


where  (3 ' ' is  a Boolean  transformation  matrix  of  dimension  (n(r)  x n) . 

Using  the  reduced  equilibrium  equation  of  Equation  2.2-3,  the  boundary 
(a) 

displacements  z'  are  computed  by  a suitable  numerical  procedure.  Interior 
B 

displacements  are  then  computed  for  each  substructure,  using  Equation  2.2-8. 
Lastly,  member-end  forces  for  the  r*^  substructure  are  computed  from 

p(r,a)  = R(r,a)  z(r,a)  (2.2-15) 

where  p^r,a^  is  a vector  of  member  forces^  K^r ,ot^  is  a stiffness  matrix  and 
z(r,a)  a veC£0r  of  nodal  displacements  for  the  r1"*1  substructure. 

Multiple  loading  conditions  for  the  structure  are  treated  routinely  by 
taking  S^(b)  and  in  Equation  2.2-1  as  matrices  whose  j'"*1  columns  repre- 

sent quantities  associated  with  the  loading  condition. 

2.2.2  Frequency  Analysis 

The  natural  frequency  of  a structure  is  computed  by  solving  the  general 
eigenvalue  proglem 


K(a)(b)y(o)  = C (ot)M(a)  (b)y(a) 


(2.2-16) 


where 


M'  ’ (b)  = (NxM)  structural  mass  matrix 

^ ^ ^ „ n L J | — t n ...  r / ' ( j — i . 


y = an  eigenvector 

5 = an  eigenvalue 

A number  of  techniques,  such  as  Subspace  Iteration  [5],  Householder's 
method  [6],  a method  based  on  Sturm  sequence  properties  described  by  Gupta  [7], 
Wilkinson  [8],  and  others  [9,10]  are  available  in  the  literature  for  solution 
of  the  general  eigen-problem  defined  in  Equation  2.2-16.  However,  these 
techniques  require  computation  and  decomposition  of  stiffness  and  mass  matri- 
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ces  for  the  entire  structure,  which  is  not  desirable  since  it  defeats  the 
purpose  of  substructuring. 

There  are  many  component  mode  substitution  techniques  available  in  the 
literature  that  may  be  used.  For  a complete  survey  of  such  techniques, 
the  reader  is  referred  to  Reference  11.  These  techniques  take  advantage  of 
substructuring.  However,  they  are  not  suitable  for  integration  into  an  op- 
timum design  algorithm,  becuase  they  are  not  efficient. 

A technique,  based  on  minimization  of  the  Rayleigh  Quotient 


t(«)(r(«))  yfa>  *(<*Va> 
y<°>T„<«y°> 


(2.2-17) 


has  been  discussed  and  used  successfully  by  researchers  such  as  Fox  and  Ka- 
poor [12],  Wilkinson  [8],  and  Bradbury  and  Fletcher  [13].  This  method  does 
not  require  storage  of  the  matrices  K and  M for  the  entire  structure,  be- 
cause all  calculations  can  proceed  elementwise  to  obtain  a solution  of  Equa- 
tion 2.2-17.  However,  there  is  one  difficulty  with  this  procedure  of  com- 
puting eigenvalues.  Convergence  to  an  eigenvalue  and  the  corresponding  eigen- 
vector can  be  quite  slow  if  a good  initial  estimate  of  the  eigenvector  is  not 
known.  Some  methods  of  selecting  initial  eigenvectors  have  been  suggested 
[12,13],  but  no  general  procedure  exists  to  alleviate  this  problem.  There- 
fore this  method  is  also  not  suitable  for  general  applications. 

The  Subspace  Iteration  technique  [5]  generally  converges  to  an  eigenso- 
lution  in  only  a few  iterations.  The  method  converges  quite  rapidly  even- 
though  a poor  estimate  of  eigenvectors  is  used.  This  technique,  however, 
also  requires  calculation  and  storage  of  matrices  K and  M for  the  entire 
structure  [5].  Therefore,  the  method  in  its  present  form  is  not  suitable 
for  integration  into  the  optimal  design  algorithm  with  substructuring.  How- 
ever the  method  can  be  modified  for  incorporation  into  the  substructuring 
algorithm.  This  new  approach  has  the  following  desirable  features: 

(i)  It  converges  rapidly  even  when  a good  initial  estimate  of  eigenvectors 
is  not  known 

(ii)  It  does  not  require  calculation  and  storage  of  matrices  K and  M for 
the  entire  structure 

(iii)  It  does  not  require  decomposition  of  K. 
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The  method  of  Subspace  Iteration  can  be  used  to  solve  any  desired  number 
of  eigenvalues  of  the  Equation  2.2-16.  The  Subspace  Iteration  algorithm  is 
first  summarized  without  partitioning  the  structure  into  a number  of  sub- 
structures. Then  modifications  to  the  algorithm  are  presented  that  account 
for  partitioning  of  the  structure  into  a number  of  smaller  substructures. 

Consider  the  general  eigenvalue  problem 


K <J>  = M $ fl  (2.2-18) 

where  K and  M are  the  stiffness  and  the  mass  matrices  for  the  structure,  $ is 
an  (N  x p)  matrix  of  eigenvectors,  p is  the  desired  number  of  eigenvalues, 
and  n is  a(p  x p)  diagonal  matrix  of  eigenvalues.  The  Subspace  Iteration 
algorithm  for  computing  p eigenvalues  of  Equation  2.2-18  is  as  follows: 

Step  1.  Start  with  (M  x q)  matrix  as  an  estimate  of  q eigenvectors; 

q = min  (2p,  p+8 , N} . 

Step  2.  Compute  Y(0)=  MX(0) 


and  solve  for  X^from 


KX(1)  = Y(0) 


Step  3. 


Compute  Y^ 


MX11*. 


K 


x(Dty(0) 


(2.2-19) 

Calculate  the  following (q  x q)matrices 


M=X(1)  Y(1> 


(2.2-20) 

Step  4.  Solve  for  all  eigenvalues  and  eigenvectors  of  the  reduced  eigen- 
value problem 

K = M $ n (2.2-21) 

where  $ is  a (q  x q)  matrix  of  reduced  eigenvectors  and  n is  a (q  x q)  diago- 
nal matrix  of  eigenvalues.  Note  that  the  generalized  Jacobi  iteration  or 
the  determinant  search  method  [5]  may  be  used  to  solve  the  eigenvalue  prob- 
lem of  Equation  2.2-21. 

= va)  « (2.2-22) 


Step  5.  Compute  X 
Step  6.  Check  for  convergence  of  eigenvalues 


If  all  eige’. value  changes 


are  within  a specified  tolerance,  then  stop  the  iterative  process.  Otherwise 


return  to  Step  1 with  X 
r(D 


(0) 


= X(1)  and  Y(0) 


,(D 


After  convergence,  the 


first  p columns  of  X'"'  are  required  eigenvectors  and  the  first  p eigenvalues 
in  £2  are  the  corresponding  eigenvalues  of  the  original  system. 

In  order  to  use  the  Subspace  Iteration  method  with  substructuring,  one 
needs  to  modify  only  Step  2 of  the  preceding  algorithm.  If  one  can  use  the 
substructuring  procedure  to  solve  for  X^  from  Equation  2.2-19,  then  he  has 
a method  for  efficiently  solving  the  structural  eigenvalue  problem  by  par- 
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titioning  the  structure  into  a number  of  smaller  substructures.  Comparing 
Equations  2.2-1  and  2.2-19,  one  observes  that  the  two  equations  are  similar, 
so  the  substructuring  approach  used  to  solve  Equation  2.2-1  can  also  be  used 
to  solve  Equation  2.2-19.  Accordingly,  matrices  X^and  in  Equation 

2.2-19  are  partitioned  into  boundary  and  interior  parts  as 

,(0)‘ 


.(1)  = 


" Y(1)" 

Y(l) 

XI 

— — 


.(0) 


B 

,(0) 


(2.2-23) 


Following  the  same  approach  as  for  static  structural  analysis,  one  solves  for 
X^^  from  the  equation 


(1) 


Yg0)  + QTY<0) 


(2.2-24) 


where  matrices  IC  and  Q are  defined  in  Equations  2.2-4  and  2.2-6,  respectively. 
“ (1) 

The  interior  displacements  XT  are  computed,  as  before,  substructure-wise. 


For  the  r 


th 


substructure 


I 

.(r) 


fc£>]’1  Qj 


(0)  _ (r)rrr  (1) 

+ Q *B 


'] 


(2.2-25) 


,(r) 


where  matrices  and  Q are  defined  earlier  in  this  section.  Note  that 

the  superscript  a is  omitted  from  Equations  2.2-23  to  2.2-25.  This  is  done 
for  notational  convenience.  The  modified  Subspace  Iteration  algorithm  is 
used  to  calculate  natural  frequencies  of  the  undamaged  and  all  damaged 
structures . 

2.3.  State  Space  Definition  of  Fail-Safe  Optimal 
Design  Problem  with  Substructuring  (FSODPS) 

A general  FSODPS  in  the  state  space  setting  may  be  defined  as  follows: 
Find  a design  variable  vector  b that,  under  both  complete  and  damaged  states, 
minimizes  a cost  function 


J (b,  z . z. 


t(a)> 


(2.3-1) 


B ’ I 

satisfies  the  partitioned  equilibrium  equitions  (state  equations)  in  terms  of 
displacements 

.(a)  _ „(<*) 

B 

.(a)  „ (a)  (a) 


Y(a) 

KB 

„(«) 


B 

.(a) 


II  I 

the  eigenvalue  problem 

K(o)  (a) 

y 


Fi 

s! 


K 


IB 


B 


(2.3-2) 

(2.3-3). 


(a)  (a)  (a) 

M y 
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(2.3-4) 


and  satisfies  the  constraints 


*s(a)  (b,  z<a>,  .<“>)<  0 

‘P  d(b)  < 0 

te(a)  (;(a))  < 0 


(2.3-5) 

(2.3-6) 

(2.3-7) 


fora=  0,l,2,...,d.  Here  and  are  defined  in  Equations  2.2-5  and 

2.2-4,  respectively,  and  d is  the  total  number  of  damage  conditions 


The  cost  function  of  Equation  2.3-1  is  quite  general  and  may  represent 
weight  of  the  structure,  displacements  of  critical  points,  certain  critical 
member  forces,  or  perhaps  natural  frequency  of  the  undamaged  or  damaged  struc- 
ture. The  cost  function  depends  only  on  design  variables  if  it  represents 
weight  of  the  structure.  The  vector  inequality  2.3-5  represents  constraints 
that  depend  upon  state  and  design  variables.  These  are  the  member  stress  and 
the  nodal  displacement  constraints.  It  is  noted  here  that  some  constraints 
represented  in  Equation  2.3-5  will  not  depend  explicitly  on  all  the  parameters 
b,  z^a\  and  z^a^.  For  example,  the  displacement  constraint  at  boundary 
nodes  depends  only  on  and  at  interior  nodes  it  depends  only  on  z,  ' . 

For  members  connected  to  boundary  and  interior  nodes,  stress  constraints  will 
depend  on  all  the  parameters  b,  zgU\  and  Advantages  of  these  special 

forms  of  various  constraint  functions  will  be  realized  in  all  calculations 
[3,14]. 

The  inequality  2.3-6  represents  constraints  that  depend  only  on  design 
variables.  These  include  either  explicit  bounds  on  design  variables  or  rela- 
tionship between  them.  The  inequality  2.3-8  represents  a constraint  on  the 
lowest  eigenvalue  (s  > £q>  = allowable  lowest  eigenvalue)  which  may  be  re- 

lated to  the  fundamental  frequency  of  the  structure  (frequency  f = *^72tt 
Hertz).  In  the  present  work,  constraints  on  only  the  lowest  eigenvalue  are 
considered,  but  constraints  on  higher  eigenvalues  can  also  be  included  [2]. 

The  lowest  eigenvalue  of  Equation  2.3-4  may  also  be  related  to  the  buckling 
load  for  the  structure  [4]  and  Equation  2.3-7  will  represent  a constraint  on 
the  buckling  load  for  the  structure. 

The  FSODPS  is  now  formulated  in  terms  of  state  and  design  variables. 

This  formulation  of  the  optimal  design  problem  is  superior  to  purely  design 
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space  formulation  since  it  permits  one  to  take  advantage  of  the  form  of  struc- 
tural equations  to  carry  out  the  design  sensitivity  analysis  very  efficiently 
[15,16]. 

In  order  to  show  the  advantage  of  the  substructuring  formulation  over  a 

similar  formulation  without  substructuring,  consider  the  Helicopter  Tail  Boom 

structure  of  Appendix  A (shown  in  Figure  2.1).  With  the  present  formulation, 

the  structure  is  divided  into  three  substructures  (r-1,2,3)  by  partitioning 

it  at  nodes  9-12  and  17-20  as  shown  in  Figure  2.1.  Suppose  that  the  damage 

occurs  in  members  belonging  to  Substructure  2.  Table  2.1  shows  a comparison 

of  major  calculations  with  and  without  substructuring  formulations.  With  the 

substructuring  formulation  one  always  works  with  smaller  matrices.  Also,  sub- 

( r ot ) 

structures  that  have  no  damaged  members  do  not  require  calculation  of  K^’ 
and  Q(r»a) . Thus  the  substructuring  formulation  of  the  fail-safe  optimal 
structural  design  problem  should  be  more  efficient  than  a formulation  without 
substructuring . 

2.4.  Design  Sensitivity  Analysis  of  the  FSODPS 

The  philosophy  of  the  optimization  method  is  to  start  with  the  best  en- 
gineering estimate  of  the  design  variable  vector  b and  to  improve  it  until 
an  optimum  is  reached.  Thus,  one  must  determine  the  effect  of  a design  change 
on  the  cost  and  constraint  functions  before  a design  improvement  6 b can  be  cal- 
culated. This  is  known  as  deisgn  sensitivity  analysis.  In  this  section,  first 
the  design  sensitivity  analysis  of  a general  function  is  considered.  Then  the 
analysis  is  specialized  to  the  FSODPS  of  Section  2.3. 

2.4.1  General  Approach 

Let  Mb,  *I(“).  4^)  be  a general  function  that  may  represent  the 

cost  function  or  any  constraint  function  for  the  nth  damage  condition  (a  = 0 
represents  the  undamaged  structure) . When  the  design  is  changed  by  a small 
amount  6b,  the  displacements  z^a^  and  z^a ^ and  the  eigenvalue  4^  will  also 
change  by  small  amounts  6z^a\  6z^a\  and  6 4^  due  to  the  well  posed  nature 
of  the  structural  analysis  problem.  Let  represent  a first  order  change  in 
the  function  ^ . Taking  b,  z£a\  z^01),  and  4^  as  independent  variables,  Sip 
is  given  as 


6i|> 


It 

3b 


6b  + 


_a!_ 


3z 


(a) 


6 z 


(a) 


JJl 


3 z 


(a) 


5z 


(a) 


clip 


94 


(a) 


34(a)  (2.4-1) 
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for  Open  Truss  Tail-Boom 
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TABLE  2.1.  COMPARISON  OF  CALCULATIONS 
WITH  AND  WITHOUT  SUBSTRUCTURING 
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where  the  derivatives 


JiL 


9jp  3 ip 

8b  ’ , (a)  * (a)  ’ ar(a) 

3zg  3zt  3c 


are  computed  at  the  previously  known  values  of  b,  z^a\  z^a^  and  The 

D 1 

problem  is  now  to  express 


JJL  3z<«>  -J*_  6C 

(a)  B „ (a)  I 


3 z 


3 


(a) 


3z 


6C 


(a) 


'B  " 1 

in  terms  of  6b,  so  that  6\J/  in  Equation  2.4-1  is  expressed  as 

S*(b,  z£a)(b),  =4a)(b>>  4(a)(b)) 


6b 


3b 


First  consider  the  term 


3z 


iL  6z<a> 

(a)  6ZI  ' 


In  order  to  obtain  this  expression  in  terms  of  6b,  define  the  following  iden- 
tity by  premultiplying  Equation  2.3-3  by  the  transpose  of  an  adjoint  variable 

, (°0  ✓ \ 
vector  (m  x n) : 


[r]T  ■{‘)  - [^0)  - 


(2.4-2) 


Taking  the  first  variation  of  this  identy  in  b,  z£°^  , and  z^a\  one  rearranges 

D 1 


to  obtain 


fK<a)  *<“>1  1 

fcj00  6b  - K*?  6z<a)l 

(2.4-3) 

Ln  i J 

L 1 1 J 

L 2 IB  B J 

where  symmetry  of  bas  been  used  and  the  matrix  is  given  as 


, , 9 S<“> 

c<“>  - -5- 


3 b 


_3_ 

3b 


(a) 


- fb  [*{? 


If  one  now  selects  X^  to  satisfy  the  adjoint  equation 


K(a)  A<*> 


dip 


(2.4-4) 


(2.4-5) 


then  Equations  2.4-3  and  2.4-5  yield 
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^ _ on T r^a) 

o>  - [xi  J LC2 


6b  - K 


(«)  ,_(a) 


IB 


6 z. 


B 


■3 


(2.4-6) 


Equation  2.4-6  may  be  substituted  into  Equation  2.4-1-  to  obtain 

6 iji  = 


||£  4-  x{a)T  C<A  6b  + f - A(a)T  kA  3 z<a) 

L8b  1 2 J L8zBa)  J 


34 


(a) 


64 


(a) 


(2.4-7) 


To  obtain  an  expression  for  the  second  term  of  Equation  2.4-7  in  terms  of 
6b,  define  an  identity  by  introducing  another  adjoint  variable  vector  in 

Equation  2.3-2  as  follows: 

T 


0>]  ‘ 


■ 


(2.4-8) 


.(a) 


Taking  the  first  variation  of  this  identity  in  b and  z , one  obtains 

B 


O 


jS  "b  j u‘b  " L'b  J L 8b  ~ 8b  "'B  “B 

It  can  be  shown  [3]  that  the  identity  2.4-9  may  be  written  as 


M'[ 


3 F 


(a) 


» (K<“>  ,<«>)] 


•i 


where 


3 S(a) 
.(a)  3 SB 

'1  = 3b 


* L‘bo)j 

c(a) 

6b 

(2.4-10) 

,(a)T  (a) 

l ^ 2 

(2.4-11) 

k ko)  4a>] 

3 

" 3 b 

(2.4-12) 

adjoint  equation 


(a) 


and  Q is  defined  in  Equation  2,2-6,  Now,  select  A to  be  solution  of  the 

B 


v- (ot)  (a)  3^  „(a)  , (a) 

**  XB  ’ . (a)  " %I  I 

3zb 


(2.4-13) 


Then  Equations  2.4-10  and  2.4-13  yield 


dljl 


3z(a) 

L3  B 


(a)T  (a) 

I kib 


6 z 


(a) 


x(a)  c(a)  6b 
B 


(2.4-14) 
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,(<*)  v(a) 

51  " KIB 

tion  2.4-7  to  obtain 


where  K^“/  = has  been  used.  Equation  2.4-14  is  now  substituted  into  Equa- 


4*  + *?'  ‘“I"— 


4-15) 


Now  one  must  treat  the  expression 


34 


(a) 


64 


(a) 


.(a) 


The  design  sensitivity  analysis  of  the  eigenvalue  4 has  been  considered  by 
many  researchers  [8],  Therefore,  this  development  is  only  summarized.  From 
the  first  order  expansion  of  Equation  2.3-4  and  using  the  fact  that  and 

M a are  symmetric,  one  obtains  the  following  expression  for  64^°^. 


64 


(a) 


/«>*  ± fK<»y«>  - c<“V«y«> 

3b  L 


) 


6b 


(2.4-16) 


y(“)  M(a)y(a) 

.(a) 


Substituting  this  expression  for  6?  in  Equation  2.4-15,  one  obtains 

, x T 

6<l>  = GKa>  6b  (2.4-17) 

where 


and 


(a)  = ^ + c!a)  x<a)  + c(a)T  xia)  + /f (a) 


3b 


.e(a)  3b 


(2.4-18) 


I 


(a)  (a)  (a)  (a)  (a) 

K y - £ M y 


1 


(a) 

y 34  a)  (2.4-19) 


y <a)  M<a)y (a> 


Equation  2.4-17  is  the  desired  relationship  between  the  design  change  and 
the  change  in  a member  force,  a nodal  displacement,  the  cost  function,  and/or 
an  eigenvalue.  The  vector  is  the  required  design  sensitivity  vector. 

2.4.2.  Design  Sensitivity  Matrices  for  the  FSODPS 
In  the  fail-safe  optimal  design  problem,  design  sensitivity  vectors  of 
active  constraints  are  calculated  for  one  damage  condition  at  a time.  Once 
the  design  sensitivity  analysis  of  all  active  constraints  under  all  damage 
conditions  has  been  completed,  then  first  variations  of  constraint  Equations 
2.3-5  to  2.3-7  are  expressed  as 
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i 
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T 


6$S  = 

AS 

T 

fib 

~dT 

(2.4-20) 

= 

yf1 

T 

6b  ; 

Ad  - 

n 3b 

(2.4-21) 

6<f>e  = 

yf 

6 b 

(2.4-22) 

where  a ' ~ ' over  a constraint  function  represents  inclusion  of  only  active  or 

s d 

violated  constraints.  Matrices  A and  A have  D rows.  The  number  of  columns 
in  each  depends  upon  the  total  number  of  violations  in  s and  d types  of  con- 
straints for  all  damage  conditions.  Each  column  represents  a design  sensitivity 

0 

vector.  Similarly,  the  matrix  A stores  sensitivity  vectors  obtained  from 
Equation  2.4-19  for  violated  frequency  constraints  for  all  damage  conditions. 

g 

The  matrix  A can  be  easily  obtained  by  following  the  approach  of  the 
previous  section: 


, s(a) 


3r(a) 

3 b 


+ c^a)T  xj(a)  + c(a)T 


, s(a) 


(2.4-23) 


a = 0,1, ..  .d 

Matrices  and  x!!^a^  are  solutions  of  the  following  adjoint  equations: 

1 D 
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(a)  . s(a) 
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(2.4-24) 


..(a)  As(a) 

“B  B 


3^s(a) ' 


+ Q 


(a)T  3^s(a) 


3 z 


(a) 


(2.4-25) 


a = 0,1,  ..  .d 

Similarly  a first  order  change  in  the  cost  function  is  expressed  as 

«J  = A1  fib  (2.4-26) 

where  Ad  is  the  design  sensitivity  vector  for  the  cost  function  of  Equation 
2.3-1.  This  sensitivity  vector  is  obtained  from  Equation  2.4-18  as 


»J  . g + c<0)  V“>  + c(a)T  + AJ<“> 

db  Z I B 

Here,  the  vector  A^a^  is  obtained  from  Equation  2.4-19  by  replacing 

by  — ^ , Adjoint  vectors  and  X‘i^a^  are  solutions  of 

3?'°'  1 B 


(2.4-27) 
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(2.4-28) 


„(«)  ,J(o) 
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(a)  xJ(ot) 
B B 


(2.4-29) 


If  the  cost  function  represents  weight  of  the  structure,  then  J is  a func- 

T 

J 3j 

tion  of  b only  and  AJ  is  simply  given  as  -»  . If  the  cost  function  depends  on 

3 b 

other  variables  such  as  z^,  z^,  and  C for  the  damage  condition  (for  example 
one  may  want  to  maximize  the  lowest  natural  frequency  or  minimize  displacement 
at  some  point  of  the  structure),  then  the  sensitivity  vector  is  given  by  Equa- 
tion 2.4-27. 

2.5.  Optimal  Design  Algorithm  for  the  FSODPS 
Restrictions  are  now  placed  on  the  linearized  constraint  functions.  It 
is  required  that  the  design  change  5b  be  computed  in  such  a manner  that  it 
corrects,  or  at  least  improves,  all  violated  constraints.  These  requirements 
on  Equations  2.4-20  to  2.4-22  can  be  stated  as  the  following  inequalities: 


6b  < A<f> 


yf1  6b  <iid 


A6  6b  < A4>6 


(2.5-1) 

(2.5-2) 


(2.5-3) 


where  A$s,  A $ , A$e  are  desired  corrections  in  constraint  violations.  If  a 
constraint  $ < 0 is  e-  active  (that  is,  >.  -e),  then  A^  = -p^. 

Constraints  of  Equations  2.5-1  to  2.5-3  have  similar  forms,  so  they  can 


be  written  in  a compact  form  as 


A 6b  <_ A<f 


where 


(7/f  Ad  aO 

r -st  ^ 

Ia<J>  A<t> 


(2.5-4) 


(2.5-5) 


(2.5-6) 


The  reduced  problem  of  computing  an  optimum  design  change  6b  can  now 
be  stated  as  follows:  Find  6b  to  minimize  the  cost  function  of  Equations 
2.4-26  subject  to  the  constraint  of  Equation  2.5-4  and  a step  size  constraint 

6 bT  W6 b < C2  (2.5-7) 
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where  W is  a positive  definite  weighting  matrix  and  £ is  a small  number.  The 
matrix  W (usually  diagonal)  is  used  to  assign  weights  to  the  various  components 
of  6b  and  is  often  essential  when  components  of  b represent  different  physical 
quantities  of  different  orders  of  magnitude. 

The  reduced  FSODPS  defined  in  the  preceeding  is  exactly  the  problem  de- 
fined in  References  14  and  17.  An  application  of  Kuhn-Tucker  conditions  of 
nonlinear  programming  gives  the  following  solution  [14,17]: 


6b  = 

1 2 
= -q6b  + 6b 

(2. 

,5-8) 

6b1 

= W_1  [A1  + Ay1] 

(2. 

.5-9) 

6b2 

= -W  A p 

(2. 

,5-10) 

H[u] 

L.  2.  f , .T  -1 

: P J = l (-  A W 

AJ):  -A<J>] 

(2. 

5-11) 

H = 

T -1 

A W A 

(2. 

5-12) 

P = 

p1  + (l/n)  p2 

(2. 

,5-13) 

where  n > 0 is  a step  size  to  be  chosen  by  the  designer  and  p >_  0 is  a Lagrange 
multiplier  vector.  The  method  of  step  size  selection  is  the  same  as  used  in 
References  1-3,  14;  '17. 

The  method  can  now  be  described  by  the  following  step-by-step  algorithm: 
Step  1.  At  the  j*1*1  design  point  b^J^  and  under  a11*1  damaged  condition  (if  a > 
d,  go  to  Step  11),  generate  matrices  K^»a)  and  K^g,a^  for  each  substructure. 
Note  superscript  r denotes  r1"*1  substructure.  Decompose  each  K^»a^  and  cal- 
culate the  matrix  Q(r»a)  from  Equation  2.2-12  . Store  decomposed  part  of  the 
matrix  K^t>ct)  ancj  j-^e  matrix  q(r,ot)  for  iater  calculations.  Calculate  the 
boundary  stiffness  matrix  and  the  effective  boundary  load  vector 

from  Equations  2.2-13  and  2.2-14,  respectively.  Decompose  the  matrix  and 

store  it  for  later  use. 

Step  2.  Calculate  boundary  displacements  z^r^  from  Equation  2.3-2  and  inter- 
ior displacements  Zjr,a^  for  each  substructure  from  Equation  2.2-8. 

Step  3.  Calculate  the  lowest  eigenvalue  and  the  corresponding  eigenvector 
from  Equation  2.2-16. 

Step  4 . Compute  adjoint  vectors 

J(a)  J(«) 

XI  * XB 
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from  Equations  2.4-28  to  2.4-29,  respectively.  Assemble  the  matrix  of  Equa- 
tion 2.4-27. 

Step  5.  Check  the  frequency  constraint  of  Equation  2.3-7.  If  it  is  violated, 
then  compute  Ae^  of  Equation  2.4-19  and  put  A$e  = 

Step  6.  Check  constraints  of  Equations  2.3-5  and  form  the  vector  . Calcu- 

late the  sensitivity  information 


9^s(a)  , 3^s(a) 


3<f> 


s(a) 


3 b 


Also,  calculate  A<J>S^a\ 


3z 


(a) 


3 z 


(u) 


Step  7.  Calculate  for  each  substructure  from  Equation  2.4-24.  Note 

K^*a)  and 


s(a) 


3z 


(r , a) 


s(a) 

B 


from  Equation 


are  completely  uncoupled  [3],  Also,  calculate  the  matrix  X 
2.4-25. 

Step  8.  Calculate  the  matrices  C^a^  and  C^a^  from  Equations  2.4-12  and  2.4-14, 

Cql') 

respectively.  Also,  calculate  the  matrix  C from  Equation  2.4-11. 

Step  9.  Assemble  the  matrix  AS  of  Equation  2.4-23. 

Step  10.  If  a _>  d,  go  to  Step  11,  otherwise  go  to  Step  1. 

Step  11.  Check  constraints  of  Equation  2.3-7  and  form  a vector  (j>^.  Compute 
the  matrix  A^  of  Equation  2.4-21.  Also,  compute  A|^. 

Step  12.  Finally,  assemble  the  matrix  A and  A<1>  of  Equations  2.5-5  and  2.5-6, 
respectively. 

1 2 

Step  13.  Compute  p and  p from  Equation  2.5-11.  Choose  a step  size  n and 
compute  the  Lagrange  multiplier  vector  p from  Equation  2.5-13. 

Step  14.  Check  the  sign  of  each  component  of  p.  If  any  component  of  p is  neg- 

«s. 

ative,  remove  corresponding  rows  from  A and  A<ji  and  return  to  Step  13. 

Step  15.  Compute  5b  , 6b^,  and  6b  from  Equations  2.5-9,  2.5-10  and  2.5-8,  re- 
spectively. Let 

b(j+1)  = b(j)  + 6b  , y(j+1)  = y(j?. 

Step  16.  If  all  constraints  are  satisfied  and 

IlSb1!! 


[6b1  Wdb1]1^2 


24 


I 

is  sufficiently  small  [17],  terminate  the  process.  Otherwise,  return  to  Step 
1 with  b^+1^  as  the  best  available  design,  and  set  a = 0. 


CHAPTER  3 

DISCUSSION  OF  THE  METHOD  AND  COMPUTATIONAL  CONSIDERATIONS 
3.1.  Introduction 


The  method  for  fail-safe  optimal  structural  design  with  substructuring  of 
Chapter  2 is  quite  general  since  no  assumption  is  made  regarding  the  type  of 
finite  elements  to  be  employed.  However  the  algorithm  presented  in  Section 
2.5  requires  considerable  computation  for  even  moderate  size  structures.  It 
is  noted  that  computational  techniques  such  as  design  variable  linking,  the 
c-active  constraint  concept  and  normalization  of  constraints  with  respect  to 
their  limit  values  are  easily  incorporated  in  the  present  algorithm  [1,3,14], 
Further,  all  computational  considerations  in  structural  analysis,  design  sensi 
tivity  analysis  and  Lagrange  multiplier  calculations  used  in  optimal  design 
of  structures  with  substructuring  [3,18,19]  are  also  incorporated  in  the  algo- 
rithm for  the  FSODPS.  Finally,  for  step  size  determination,  convergence  cri- 
terion, and  computational  checks,  the  reader  is  referred  to  References  2 and  3 
In  this  chapter,  only  those  computational  aspects  of  the  method  that  are  dif- 
ferent from  those  presented  in  References  1 to  3 are  discussed. 

3.2.  Selection  of  Critical  Constraints 
The  FSODPS  is  characterized  by  requiring  a set  of  design  variables  to 
satisfy  a constraint  set  whose  dimension  is  much  larger  (due  to  damage  and 
multiple  loading  conditions)  than  the  dimension  of  the  design  variable  vector. 
If  all  active  constraints  come  into  the  computation,  it  is  not  only  computa- 
tionally expensive  but  the  accuracy  of  the  result  may  be  jeopardized.  Thus 
a rational  method  of  selecting  independent  critical  constraints  is  essential. 
In  the  present  work,  the  idea  of  "worst  violated  constraint"  [3,14]  is  used 
in  order  to  eliminate  redundent  constraints.  The  ith  constraint  is 

»il° 

where  is  defined  as 

(i)  for  the  ifc^  stress  constraint 


k(a) 

>i 


max 


|S(a)/K 

>ijk  (b’  ZB  ' 


*{°M 


(ii)  for  displacement  constraint  of  the  i*^  degree  of  freedom  and  a 
age  condition 


th 


dam- 
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(a)  max  ( s(a)  , (a)  „(<*),( 

*i  “ k \*ik  (ZB  * 2I  > \ 

Here 

a = 0,1,2, . . . ,d 

j = 1,2 NMG 

k = 1,2, . . . , NLC 

NMG  = number  of  members  in  the  group 
NLC  = number  of  loading  conditions. 

Thus,  for  stress  constraints  only  the  worst  violation  over  all  members 
of  a group,  over  all  loading  conditions,  and  over  all  damage  conditions,  is 
imposed.  Similarly,  for  any  damage  condition  the  worst  violated  displacement 
constraint  at  a node  over  all  loading  conditions  is  imposed.  The  natural  fre- 
quency constraint  is  imposed  for  all  damage  conditions. 

In  this  procedure,  the  number  of  violated  constraints  to  be  corrected  at 
any  design  iteration  is  reduced  considerably.  The  procedure  avoids  calcula- 
tion of  design  derivatives  of  unnecessary  constraints.  The  Lagrange  multi- 
plier calculations  of  these  constraints  are  also  avoided.  Thus,  efficiency 
of  the  algorithm  is  enhanced. 

3.3.  Some  Additional  Computational 
Condiderations  in  Structural  Analysis 

In  static  analysis  of  structures,  the  response  variables  to  be  determined 
under  each  damage  conditon  (a)  are  boundary  displacements  , interior  dis- 

D 

placements  for  each  substructure  z^r,a\  and  element  stresses.  Computation 
of  these  response  quantities  requires  generation  of  the  boundary  stiffness  ma- 
trix , interior  stiffness  matrices  Kjr,a\  and  matrices  Q^r*a).  It  is 

noted  that  in  case  no  damage  occurs  in  some  substructures  under  a damage  condi- 
tion, then  for  those  substructures  computation  of  the  matrices  K^’a^  and 
q(r*a)  not  reqUired.  This  increases  efficiency  of  the  algorithm,  since  as 
generation  and  decomposition  of  K^,a^  and  computation  of  Q^r,a^  are  not  re- 
quired. The  remaining  computations  proceed  as  discussed  in  References  3,  18 
and  19. 
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CHAPTER  4 


APPLICATION  OF  THE  ALGORITHM  FOR 
FAIL-SAFE  STRUCTURAL  DESIGN 


4.1  Design  Formulation 


In  this  chapter,  the  general  method  for  fail-safe  optimal  structural  de- 
sign developed  in  Chapters  2 and  3 is  specialized  to  structures  that  can  be 
modeled  by  TRUSS,  Constant  Strain  Triangular  (CST) , and/or  Symmetric  Shear 
Panel  (SSP) /Symmetric  Pure  Shear  Panel  (SPSP)  finite  elements.  Stiffness 
and  mass  matrices  for  these  elements  are  given  in  Appendix  B.  For  the  class 
of  structures  considered  herein,  the  geometric  configuration  and  the  material 
for  the  structure  are  assumed  to  be  specified.  Loading  conditions  and  pro- 
bable damage  conditions  for  the  structure  are  also  specified. 

An  optimal  design  problem  for  this  class  of  structures  is  defined  as 
follows:  find  the  cross-sectional  area  of  TRUSS  elements  and  the  thickness 
of  the  CST  and  SSP/SPSP  elements  so  that  total  weight  of  the  structure  is 
minimized  and  the  state  equations  and  constraints  on  stress,  buckling,  dis- 
placement, natural  frequency,  and  member  size  are  satisfied  for  all  loading 
and  damage  conditions. 

Since  weight  of  the  structure  is  to  be  minimized,  the  cost  function  of 
Equation  2.3=1  is  a linear  function  of  the  design  variables,  given  as 


J(b) 


L TP(r)  NG(k)  NM(i) 


I 


l 


r=l  k=l  i=l  j=l 


l P±  * 


ij  bi 


(4.1-1) 


where : 

= material  density  of  members  in  the  ith  group, 
b^  = cross-sectional  area  or  thickness  of  members  in  the  itn  group, 
= length  or  surface  area  of  the  j1-*1  member  in  the  icb  group, 
TR(r)  = number  of  element  types  in  the  r^  substructure, 

NG(r)  = number  of  groups  in  the  rfcb  substructure, 

NM(i)  = number  of  members  in  the  ifcb  group. 
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Since  the  cost  function  depends  only  on  design  variables,  the  vector  A of 

3JT 

Equation  2.4-27  is  simply  -gg-  . 

In  the  following  presentation,  the  superscript  a designating  a damage 
condition  is  omitted  in  all  equations.  These  equations  apply  to  a typical 
damage  condition.  In  this  formulation,  CST/SSP/SPSP  elements  are  required 
to  satisfy  a design  criterion  based  on  the  Von  Mises  equivalent  stress.  For 
a complete  development  of  the  Von  Mises  equivalent  stress  criterion,  the  read- 
er is  referred  to  Ref.  20.  According  to  this  criterion,  an  equivalent  stress 
(oC)  for  a structural  element  in  a general  state  of  stress  is  given  as 

o = fl^ll  " °22^  +^°22_a33^  + ^°33  ~ °11^ 

2 2 2 

+ 6(o^2  +023+03l^  I (4.1-2) 


where  o (i,j  = 1,2,3)  are  stress  components  at  the  point  of  interest  (x^^.x^) 
in  the  domain  fi  of  the  element.  For  CST  or  SSP/SPSP  elements,  Equation  4.1-2 


reduces  to 


2 2 ^ 
(°11  + a22  " °11  °22"*"  ^°1 


2,1/2 

12' 


(4.1-3) 


Next,  the  stress  or  buckling  constraint  of  Section  3.2  for  a typical  mem- 


ber is  written  as 


- 1.0  < 0 


(4.1-4) 


where  is  the  direct  stress  for  TRUSS  elements,  or  the  maximum  Von  Mises  stress 
calculated  from  Equation  4.1-3.  In  order  to  simultaneously  implement  stress 
and  buckling  constraints  for  truss  members,  the  allowable  stress  0 is  chosen 
as  follows: 

(i)  for  members  in  tension,  o3  = 03+,  where  o3+  is  an  allowable  tensile 
stress  for  the  member 

(ii)  for  members  in  compression,  o3  = min(o3  , 0 ),  where  o3  > 0 and 
0b  > 0 are  allowable  compressive  and  critical  buckling  stresses 
for  the  member,  respectively. 

The  stresses  03+  and  o3_  are  specified  by  the  designer,  whereas  0 depends 
on  the  Euler  buckling  load  and  is  given  as 


< 

I 


b 1,2  E1± 


°i = 


*ibi 


(4.1-5) 


where  E,  i.^,  b^,  and  1^  are  modulus  of  elasticity,  length,  cross-sectional 

area,  and  moment  of  inertia  of  the  i1-*1  member,  respectively.  In  the  present 

work,  it  is  assumed  that  the  moment  of  inertia  of  a truss  member  can  be  ex- 
pressed as 

I.  = a,  b2  (4.1-6) 

l i l 

where  is  a positive  constant  that  depends  only  on  the  cross-sectional  geo- 
metry of  the  member.  This  constant  is  specified  by  the  designer.  Thus, 

Equation  4.1-5  is  rewritten  as 


°i  = 9ibi 


(4.1-7) 


where 


7T2  Ed 
9i  = — T2 


(4.1-8) 


If  the  constraint  of  Equation  4.2-4  is  violated,  then 


A|S 


[I 


7 -10 


(4.1-9) 


The  displacement  constraint  of  Section  3.2  for  a typical  degree  of 
freedom  is  expressed  as 


-1.0  <0 


(4.1-10) 


'j 


where  z^  and  z^  are  the  calculated  and  allowable  displacements,  respectively. 
If  this  constraint  is  violated  for  a displacement  component,  then 


•lit 


1.0 


(4.1-11) 
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"V- 


It  is  noted  here  that  constraint  checks  on  stress,  buckling,  and  dis- 
placement proceed  substructurewise.  The  sensitivity  analysis  proceeds  as 
explained  in  Chapter  2 and  the  matrix  As  is  assembled  at  this  stage. 

The  constraint  of  Equation  2.5-3  is  imposed  only  on  the  lowest  eigenvalue 

2 

of  the  structure  (s  = (2irf)  ).  Using  the  method  presented  in  Section  2.2.2 
the  lowest  eigenvalue  c;  and  the  associated  eigenvector  y are  obtained.  Thus, 
the  eigenvalue  constraint  is  written  as 

$e(C)  = 1.0  - ?/c0  < 0 (4.1-12) 

where  is  related  to  a resonant  frequency  of  the  structure.  If  this  con- 
straint is  violated,  then 

~ 6 

A<}>e  = - (1.0  - t/Cn)  and  = - ~ 

0 34  40 

Finally,  the  design  variable  constraint  ^(b)  of  Equation 
sidered.  For  a typical  design  variable  it  is  expressed  as 

bi  1 bi  < (4.1.14) 

where  bV  and  bV  are  the  lower  and' upper  bounds  on  the  itb  design  variable,  res- 
pectively. The  inequality  of  Equation  4.1-14  may  be  split  into  two  parts  as 
follows : 

(i)  Lower  bound  design  variable  constraint 

Ob)  = 1.0  - <_  0 (4.1-15) 

-i" 

and 


(4.1-13) 

2.5-2  is  con- 


(ii)  Upper  bound  design  variable  constraint 
, hi 

^(b)  S -i  - 1.0  < 0 (4.1-16) 

bi 

If  a constraint  of  Equation  4.1-15  is  violated,  then 


i 


\ 

i 

{ 
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and 


(4.1-17) 


(4.1-18) 


The  upper  bound  design  variable  constraint  is  treated  in  a similar  way. 


4 . 2 Computer  Program 


A computer  program  based  on  the  formulation  of  Section  4.1  and  the  algor- 
ithm of  Chapter  2,  has  been  developed  in  FORTRAN  IV.  The  program  is  called 
S0S4  (Structural  Optimization  by  Substructures  4).  A general  flow  diagram 
for  the  program  is  given  in  Figure  4.1. 

Computational  aspects  of  multiple  loading  conditions,  design  variable 
linking,  the  worst  constraint  violation  concept,  the  e-active  constraint  con- 
cept, and  normalization  of  constraints  have  been  incorporated  in  the  program 
[3,4,18,19].  For  frequency  analysis  of  the  structure  (calculation  of  lowest 
natural  frequency),  estimates  of  two  eigenvectors  are  needed.  These  eigen- 
vector estimates  are  either  supplied  by  the  designer  or  are  generated  inter- 
nally by  the  computer  program  at  the  start  of  the  iterative  design  process. 

In  all  subsequent  frequency  analyses,  eigenvectors  from  the  previous  frequency 
analysis  are  taken  as  the  starting  eigenvectors. 

In  order  to  obtain  a reasonable  starting  design  for  the  algorithm,  a 
stress-ratio  design  is  made  in  the  computer  code.  In  this  concept,  member 
areas  for  TRUSS  elements  and  member  thicknesses  for  CST  and/or  SSP/SPSP  elements 
are  computed  from  the  condition  that  stress  in  each  member  be  at  its  limiting 
value.  It  is  noted  here  that  this  does  not  necessarily  yield  an  optimum  de- 
sign even  under  only  stress  constraints  for  indeterminate  structures,  but  it 
gives  a good  starting  point  for  the  optimal  design  algorithm.  A parameter 
IFS  is  defined  in  the  computer  program  for  controlling  the  number  of  stress- 
ratio  design  cycles. 

Also,  provision  is  made  in  the  computer  program  for  assigning  a predeter- 
mined value  to  any  design  variable  at  the  start  of  the  iterative  process. 
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READ  INPUT  DATA 


Figure  4.1.  Flow  Diagram  for  the  Computer  Program  S0S4 
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Figure  4.1.  (cont.)  Flow  Diagram  for  the  Computer  Program  S0S4. 
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Thus,  the  number  of  design  variables  can  be  less  than  the  number  of  groups 
for  the  structure.  This  is  a valuable  feature  in  the  program,  since  it 
allows  a designer  to  fix  some  members  of  the  structure.  Stress  constraints, 
however,  are  imposed  on  all  members  of  the  structure,  irrespective  of  whether 
the  design  variable  associated  with  the  member  is  fixed  or  free. 

The  step  size  p is  calculated  in  the  program  based  on  a desired  reduction 
in  the  cost  function  when  all  constraints  are  satisfied  [3,14].  Thus,  if 
r is  a desired  cost  function  reduction  ratio,  then  the  step  size  is  given  as 


n 


(4.2-1) 


The  weighting  coefficients  VL  are  calculated,  as  in  Ref.  3,  as 


W 


i 


9 J _ 


(4.2-2) 


where  w^  is  a weighting  multiplier.  It  is  noted  here  that  selection  of  the 

parameters  r and  w^  is  still  an  art.  A certain  amount  of  expreience  is  nec- 

essary to  choose  effective  values  for  these  parameters.  Well  chosen  values 
of  these  parameters  are  necessary  for  rapid  convergence  of  the  algorithm.  In 
many  example  problems  r has  been  chosen  as  0.05  to  0.10.  The  multiplier  w^ 
has  been  chosen  as  unity  for  the  CST  and  SSP/SPSP  elements  and  for  TRUSS  ele- 
ments it  has  been  chosen  between  1 and  20. 


4.3  Example  Problems 

The  formulation  of  Section  4.1  is  now  used  to  design  a tail-boom  structure 
for  the  U.S.  Army  Cobra  helicopter.  Geometry  of  the  tail-boom  structure  and 
the  loads  transmitted  to  it  are  shown  in  Figure  A.l.  Fail-safe  design  for 
several  cases  of  the  tail-boom  modeled  as  an  open  truss  structure  are  given 
in  Appendix  A.  Those  designs  were  obtained  using  the  computer  code  of  Ref.  1 
which  is  based  on  an  optimal  design  formulation  without  substructuring.  In 
this  section  the  following  two  design  problems  are  solved  using  the  substructur- 
ing formulation  and  the  computer  program  S0S4: 
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Design  Problem  1:  Open  truss  helicopter  tail  boom 
Design  Problem  2:  Closed  helicopter  tail  boom 

In  subsequent  subsections  these  problems  are  discussed  in  detail.  Re- 
sults obtained  for  the  first  example  are  compared  to  results  given  in  Appendix 
A.  Finally,  results  for  the  tail-boom  obtained  with  and  without  substructur- 
ing are  compared . 

4.3.1  Open  Truss  Helicopter  Tail-Boom 

A complete  description  of  the  structure,  such  as  member  arrangement,  global 
coordinate  axes,  loading  data,  definition  of  6 damage  conditions  and  other  de- 
sign data  are  given  in  Appendix  A.  In  the  present  formulation,  the  tail-boom 
structure  (Fig.  2.1)  is  divided  into  3 substructures  by  partitioning  it  at 
nodes  9-12  and  17-20.  Node  numbers  25-28  are  also  treated  as  boundary  nodes. 
Figure  4.2  shows  nodal,  numbering  and  the  local  (or  substructural)  numbering 
systems.  Substructure  1 has  4 boundary  nodes  (1-4),  8 interior  nodes  (5-12) 
and  36  truss  elements.  Substructures  2 and  3 each  have  8 boundary  nodes  (1-8), 

4 interior  nodes  (9-12),  and  36  truss  elements.  Note  that  boundary  nodes  1-4 
of  the  first  substructure  and  1-8  of  the  second  and  third  substructures  corres- 
pond to  boundary  nodes  9-12,  5-12,  and  1-8  in  the  overall  numbering  system, 
respectively.  Member  connectivity  is  given  in  Table  4.1.  Design  variable 
linking  is  used,  as  shown  in  Table  4.2. 

2 

In  this  example,  a starting  design  of  1.0  in  . for  all  members  of  the 
structure  is  used.  Optimum  designs  for  two  cases  are  obtained  using  the  com- 
puter program  S0S4 . These  are  Cases  I and  V of  Appendix  A.  For  Case  I,  no 
damage  is  considered  and  for  Case  V,  six  damage  conditions  are  imposed.  The 
final  designs,  cost  function,  number  of  active  constraints,  | | 6 b ^ | | at  optimum, 
maximum  | | 6b^  | |,  and  average  CPU  time  per  iteration  are  given  in  Table  4.2. 
Critical  constraints  at  the  optimum  are  given  in  Table  4.3. 

Comparision  of  Results  Obtained  with  and  without  Substructuring:  A compar- 
ison of  optimum  results  obtained  with  and  without  substructuring  formulations 
is  given  in  Table  4.4.  Optimum  weights  using  the  two  formulations  are  the  same. 
However,  the  CPU  time  per  design  iteration  using  the  substructuring  approach  is 
increased  by  a factor  of  1.4  for  Case  I and  1.6  for  Case  V.  An  analysis  of 
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(a)  An  Overall  Numbering  System  for  Boundary  Nodes 


substructure  1 


substructure  2 


substructure  3 


(b)  Numbering  System  for  Boundary  and  Interior  Nodes  for  Each  Substructure 
Note:  For  clarity  diagonal  members  are  not  shown. 


Figure  4.2.  Nodal  Numbering  Systems 
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TABLE  4.1.  MEMBER  CONNECTIVITY  FOR  OPEN  TRUSS  HELICOPTER  TAIL-BOOM 


Member  Member  Member 


Number 

Node  i 

Node  j 

Number 

Node  i 

| Node  j 

! Number 

! Node  i 

Node  j 

1 

7 

3 

11 

3 

m 

El 

3 

2 

5 

1 

9 

1 

ma 

Kl 

1 

3 

6 

2 

39 

10 

2 

■ 

2 

4 

8 

4 

40 



12 

4 

mm 

n 

4 

5 

7 

1 

«fl 

11 

1 

■ $ 

ii 

1 

6 

5 

3 

Hfl 

9 

3 

Hfl 

9 

3 

7 

5 

■ 

9 

2 

9 

2 

8 

6 

1 

10 

1 

80 

10 

1 

9 

6 

KB 

4 

81 

10 

4 

10 

8 

2 

ES 

ss 

82 

■a 

2 

11 

7 

4 

EH 

o 

83 

H 

4 

12 

8 

3 

km 

3 

84 

12 

3 

13 

3 

1 

EX 

H 

1 

85 

3 

1 

14 

1 

2 

■a 

i 

86 

1 

2 

15 

2 

4 

■9 

2 

87 

2 

4 

16 

4 

■ 

52 

4 

Rfl 

88. 

4 

3 

17 

3 

53 

3 

89 

3 

2 

18 

4 

Kfl 

54 

4 

Kfl 

90 

4 

1 

19 

11 

7 

55 

7 

91 

7 

El 

20 

9 

5 

56 

5 

KB 

92 

5 

■3 

21 

10 

6 

57 

6 

10 

93 

6 

E3 

22 

12 

8 

58 

8 

12 

94 

8 

Ka 

23 

El 

5 

59 

7 

■a 

95 

7 

BB 

24 

■9 

7 

60 

5 

n 

96 

5 

Bfl 

25 

■n 

6 

61 

5 

■91 

97 

5 

10 

26 

EH 

5 

62 

6 

■9 

98 

6 

9 

27 

8 

63 

6 

12 

99 

6 

12 

28 

K$i 

6 

64 

8 

10 

100 

8 

10 

29 

o 

8 

65 

7 

12 

101 

7 

12 

30 

■a 

7 

66 

8 

191 

ISM 

KB 

31 

■a 

5 

67 

11 

H 

EH 

EB 

32 

5 

6 

68 

m 

10 

bem 

KB 

33 

6 

8 

69 

K9 

12 

K9I 

BB 

34 

8 

7 

70 

K3 

11 

■SI 

EB 

ii 

35 

7 

6 

71 

K9 

10 

H 

EB 

10 

i 
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TABLE  4.2.  FINAL  DESIGN  FOR  OPEN  TRUSS  HELICOPTER  TAIL-BOOM  WITH 
SUBSTRUCTURING 


Design  Variable 
Number 


Member 

Number 


CASE  I 
Area,  in^. 


CASE  V 

2 

Area,  in 


TABLE  4.2  Cont'd 


Design  Variable 

Member 

CASE  I 

CASE  V 

Number 

Number 

Area,  in^. 

O 

Area,  in  . 

27 

68,70 

0.1835 

0.0922 

28 

71,72 

0.0415 

0.0836 

29 

74,75 

0.2322 

0.2673 

30 

73,76, 

0.2326 

0.1231 

31 

77,78,81,82 

0.3413 

0.1938 

32 

79,80,83,84 

0.3508 

0.3262 

33 

85,87 

0.0458 

0.2115 

34 

86,88 

0.1023 

0.0814 

35 

89,90 

0.2062 

0.1806 

36 

92,93 

0.5787 

I 

0.5571 

37 

91,94 

0.5787 

0.6898 

38 

95,96,99,100 

0.2764 

0.2872 

39 

97,98,101,102 

0.3036 

0.3108 

40 

103,105 

0.0415 

0.0442 

41 

104,106 

0.2031 

0.1508 

42 

107,108 

0.0415 

l 

0.1155 

j 

Weight  in  lbs. 

106.0 

161.55 

Average  CPU/iter, 
in  sec . 

(IBM  370-158) 

i 

5.65 

1 

43.50 

1 

No.  of  Active  Cons 
at  opt. 

I 

tr . 

12 

9 

| | 6bl | | at  opt. 

4.37 

6.9 

| 16b1!  i 

’ 1 ' 'max 

53.92 

53.8 
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TABLE  4 
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CASE  I: 


CASE  V: 


.3.  CRITICAL  CONSTRAINTS  AT  OPTIMUM  (OPEN  TRUSS  TAIL-BOOM) 

Without  damage 

• Displacement  in  the  X2  direction  at  nodes  1 and  3 of  the 
3rc*  substructure 

• Lower  limit  on  design  variable  numbers  5,7,12,14,19,21, 
26,28,40  and  42 

• Max.  violation  is  0.001%  at  optimum 

With  6 damaged  conditions 

• Frequency  constraint  under  damage  conditions  2 and  6 

■ Displacement  in  the  x^  direction  at  node  1 of  the  3rt* 
substructure  under  damage  conditions  2,3,4  and  5 

• Displacement  in  the  x 2 direction  at  node  3 of  the  3rc^ 
substructure  under  damage  conditions  2,3,  and  5 

• Max.  violation  is  0.09%  at  optimum 
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TABLE  4.4.  COMPARISON  OF  RESULTS  OBTAINED  WITH  AND  WITHOUT  SUBSTRUCTURING 
FOR  OPEN  TRUSS  HELICOPTER  TAIL-BOOM 


Without 

Substructuring 


Substructuring 


CASE  I 

CASE 

V 

Op  t imum 
Weight 

CPU  Time  per 
design  iteration 

Optimum 

Weight 

CPU  Time  per 
design  iteration 

Computer  Core 
Requirements 

105.6 

4.0 

161.1 

26.7 

280  K 

106.0 

5.65 

161.7 

43.5 

276  K 

3 


computer  programs  S0S4  and  that  of  Ref.  1 showed  that  there  is  some  difference 
in  the  frequency  analysis  portion  of  the  two  programs.  In  the  computer  pro- 
gram of  Ref.  1,  the  mass  matrix  for  the  structure  is  calculated  and  stored  for 
use  in  Steps  2 and  3 of  the  Subspace  Iteration  method  of  Section  2.2.2.  How- 
ever, in  the  S0S4  computer  program  the  mass  matrix  for  the  structure  is  not 
stored.  Multiplication  of  the  mass  matrix  with  eigenvectors  in  Steps  2 and 
3 of  the  Subspace  Iteration  method  of  Section  2.2.2  is  carried  out  elementwise. 
Thus,  if  the  Subspace  Iteration  method  takes  approximately  5 cycles  to  converge 
to  the  eigenvalue  solution  for  a structure,  then  the  mass  matrix  is  computed 
10  times  in  the  program  S0S4,  as  compared  to  only  once  in  the  program  of  Ref.  1. 
When  six  damage  conditions  are  imposed,  the  mass  matrix  is  calculated  70  times 
in  the  program  S0S4 , as  compared  to  only  7 times  in  the  program  of  Ref.  1,  in 
each  design  iteration.  Therefore,  the  frequency  analysis  portion  of  the  pro- 
gram of  Ref.  1 is  more  efficient  as  compared  to  that  in  the  program  S0S4. 
However,  for  the  two  approaches,  there  is  a trade-off  between  computational 
time  and  computer  storage. 

In  order  to  confirm  the  preceding  contention,  the  two  computer  programs 
were  executed  without  the  frequency  analysis  for  a case  of  the  open  truss  heli- 
copter tail-boom  with  six  damage  conditions  imposed.  The  program  S0S4  took 
13.0  sec.  per  design  iteration,  whereas  the  program  of  Ref.  1 took  14.2  sec. 
per  design  iteration.  Thus,  the  program  based  on  the  substructuring  formul- 
ation is  more  efficient  as  compared  to  a program  without  substructuring  form- 
ulation. 

4.3.2  Closed  Helicopter  Tail-Boom 

In  this  example,  tha  same  helicopter  tail-boom  structure  as  discussed  in 
Section  4.3.1,  is  considered.  The  tail-boom  is  modeled  as  a closed  structure 
that  is  obtained  by  using  a skin  cover  on  the  108  member  truss  of  Figure  2.1. 
Design  ca.c  for  the  structure  is  the  same  as  given  in  Appendix  A,  except  for 
the  skin  material.  The  skin  is  an  aluminum  alloy  sheet  (7075-T6  clad  alum- 
inum) that  is  modeled  by  48  CST  elements.  The  element  connectivity  for  the 
CST  elements  is  defined  in  Table  4.5.  Material  properties  for  the  skin  are: 
Young's  Modulus  *»  10,400  ksi,  yield  stress  * 67  ksi,  working  stress  = 40.2  ksi, 
and  the  material  weight  density  = 0.098  lbs/in3. 
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TABLE  4.5.  CST  ELEMENT  CONNECTIVITY  FOR  CLOSED  HELICOPTER  TAIL-BOOM 

Member 


Number 

Node  i 

Node  j 1 

Node  k 

1 

7 

9 

11 

2 

7 

9 

5 

3 

5 

3 

7 

4 

5 

3 

1 

5 

6 

12 

10  g 

6 

6 

12 

8 <u 

7 

2 

8 

6 a 

8 

2 

8 

4 o 

9 

6 

9 

io  2 

10 

6 

9 

5 « 

11 

2 

5 

6 3 

12 

2 

5 

1 W 

13 

12 

7 

11 

14 

12 

7 

8 

15 

8 

3 

7 

16 

8 

3 

4 

17 

5 

11 

7 

18 

5 

11 

9 

19 

9 

3 

11 

20 

9 

3 

1 

21 

8 

6 

22 

8 

12  S 

23 

■ 

2 

4 a) 

24 

2 

10  3 

25 

5 

6 o 

26 

| 

5 

9 2 

27 

2 

9 

10  w 

28 

2 

9 

1 3 

29 

8 

11 

7 W 

30 

8 

11 

12 

31 

12 

3 

11 

32  1 

12 

3 

4 

33 

5 

34 

5 

35 

I 9 

36 

! 9 

37 

10 

38 

10 

39 

12 

40 

12 

41 

10 

42 

10 

43 

2 

44 

2 

45 

8 

46 

8 

47 

12 

48 

12 

The  structure  is  divided  into  three  substructures  for  the  computer  program 

S0S4.  Data  for  the  three  substructures  are  the  same  as  discussed  in  Section 

4.3.1,  except  that  skin  elements  must  be  included  in  all  substructures.  The 

2 

starting  design  for  the  structure  is  taken  as  0.10  in  . for  the  truss  elements 
and  0.04  in.  for  the  CST  elements.  Lower  and  upper  bounds  for  the  CST  elements 
are  0.02  in.  and  0.05  in.,  respectively.  The  lower  bound  for  truss  elements 

is  the  same  as  in  the  previous  example. 

Optimum  solutions  for  Cases  I and  V of  Appendix  A are  again  obtained  using 
the  program  S0S4 . Results  are  given  in  Table  4.6.  Considerable  design  var- 
iable linking  is  used  in  this  example,  as  indicated  in  Table  4.6.  Critical 
constraints  at  the  optimum  for  this  example  problem  are  given  in  Table  4.7. 
Fundamental  frequencies  of  the  closed  and  open  tail-boom  structures  are  given 
in  Table  4 .8 . 

Comparison  of  Optimum  Results  for  Open  and  Closed  Tail-Boom  Structures: 
Table  4.9  presents  a comparison  of  optimum  results  for  the  open  and  closed  tail- 
boom  structures.  For  both  Cases  I and  V,  the  optimum  weight  for  the  closed 
tail-boom  is  less  than  half  that  for  the  open  tail-boom.  Thus,  one  can  con- 
clude that  the  closed  tail-boom  is  considerably  more  efficient  in  carrying 
loads. 

Computational  effort  for  the  closed  tail-boom  is  greater  than  that  for  the 
open  tail-boom,  since  the  closed  tail-boom  has  more  members  and  design  variables 
than  the  open  tail-boom. 
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TABLE  4.6 


FINAL  DESIGN  FOR  CLOSED  HELICOPTER  TAIL-BOOM  WITH 
SUBSTRUCTURING 


Design  Variable 
Number 

Member 

Number 

CASE  I 

(without  damaee) 

CASE  V 

(with  6 damage 
conditions) 

At  10th  Iter. 

At  30th  Iter, 

1 

2,3 

0.0554 

0.0415 

0.0847 

2 

1.4 

0.0542 

0.0415 

0.1498 

3 

5,6,9,10 

0.0415 

0.0415 

0.0415 

4 

7,8,11,12 

0.0438 

0.0415 

0.1138 

5 

13,15 

0.0415 

0.0415 

0.0415 

6 

14,16 

0.0415 

0.0415 

0.0415 

7 

17,18 

0.0645 

0.0415 

0.0418 

8 

20,21 

0.0631 

0.0415 

0.1885  . 

9 

19,22 

0.0415 

0.0415 

0.3267 

10 

23,24,27,28 

0.0415 

0.0415 

0.2522 

11 

25,26,29,30 

0.0415 

0.0415 

0.0526 

12 

31,33 

0.0415 

0.0415 

0.0415 

13 

32,34 

0.0415 

0.0415 

0.0415 

14 

35,36 

0.0415 

0.0415 

0.2405 

15 

38,39 

0.0415 

0.0415 

0.0415 

16 

37,40 

0.0415 

0.0415 

0.0415 

17 

41,42,45,46 

0.0415 

0.0415 

0.0415 

18 

43,44,47,48 

0.0486 

0.0415 

0.0415 

19 

49,51 

0.0415 

0.0415 

0.0415 

20 

50,52 

0.0415 

0.0415 

0.0415 

21 

53,54 

0.0415 

0.0415 

0.0415 

22 

56,57 

0.0415 

0.0415 

0.0415 

23 

55,58 

0.0415 

0.0415 

0.0482 

24 

59,60,63,64 

0.0415 

0.0415 

0.0415 

25 

61,62,65,66 

0.0515 

0.0415 

0.0415 

26 

67,69 

0.0415 

0.0415 

0.0415 

TABLE  4.6  Cont'd 


Design  Variable 

Member 

| CASE  I 

CASE  V 

Number 

Number 

(without 

damage) 

(with  6 damage 

At  10th  Iter. 

At  30th  iter. 

conditions) 

27 

68,70 

0.0415 

0.0415 

0.0415 

28 

71,72 

0.0415 

0.0415 

0.0624 

29 

74,75 

0.0415 

0.0415 

0.0415 

30 

73,76 

0.0415 

0.0415 

0.0415 

31 

77,78,81,82 

0.0419 

0.0415 

0.0415 

32 

79,80,83,84 

0.0553 

0.0415 

0.0429 

33 

85,87 

0.0415 

0.0415 

0.0415 

34 

86,88 

0.0415 

0.0415 

0.0415 

35 

89,90 

0.0816 

0.0814 

0.1941 

36 

92,93 

0.0415 

0.0415 

0.0437 

37 

91,94 

0.0415 

0.0415 

0.0640 

38 

95,96,99,100 

0.0415 

0.0415 

0.1822 

39 

97,98,101,102 

0.0534 

0.0415 

0.1229 

40 

103,105 

0.0415 

0.0415 

0.0415 

41 

104,106 

0.0415 

0.0415 

0.0415 

42 

107,108 

0.0415 

0.0415 

0.0820 

43  (CST) 

1-4 

0.0385 

0.04555 

0.0374 

44  (CST) 

5-8 

0.0313 

0.02325 

0.05 

45  (CST) 

9-16 

0.02 

0.02 

0.0425 

46  (CST) 

17-20 

0.0414 

0.04709 

0.05 

47  (CST) 

21-24 

0.0285 

0.02 

0.05 

48  (CST) 

25-32 

0.02 

0.02 

0.0420 

49  (CST) 

33-36 

0.0434 

0.04550 

0.05 

50  (CST) 

37-40 

0.02 

0.02 

0.0399 

51  (CST) 

41-48 

0.02 

0.02 

0.0373 

Weight  in  lbs. 

45.82 

44.53 

77.81 

Average  CPU/iter,  in 
sec.  on  IBM  370-158| 

7.66 

7.66 

52.00 

//  of  active  constrs 
at  optimum 

34 

48 

35 

ll«bJILpt. 

1 - - 

158.8 

77.63 

253.8 

Il6blllmax 

321.9 

1 321.9 

434.3 

48 
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TABLE  4.7.  CRITICAL  CONSTRAINTS  AT  OPTIMUM  (CLOSED  TAIL-BOOm) 


CASE  I : Without  damage 

(i)  Results  obtained  after  10  design  iterations  (1  stress- 

ratio  design  cycle  initially) 

Lower  bound  on  design  variable  numbers: 

3,  5,  6,  7,  10-17,  19-21,  23,  24,  26-30,  33,  34,  36-38, 

40-42,  and  50,  51 

(ii)  Results  obtained  after  30  design  iterations  (1  stress- 

ratio  design  cycle  initially) 

• Displacement  of  nodes  1 and  3 in  the  direction  of 
the  3rd  substructure 

• Lower  bound  on  design  variable  numbers:  1-34,  36-42, 

50,  51 

• Max.  violation  is  0.31% 

CASE  V:  With  6 damage  conditions  (results  are  obtained  after  38 
design  iterations  with  no  stress-ratio  design  initially) 

• Displacement  of  nodes  1 and  3 in  the  x^  direction  of 
the  3r^  substructure  under  damage  conditions  2,  4, 
and  6 

• Truss  member  #98,  group  39  in  substructure  3 under 
damage  condition  5 

• Lower  bound  on  design  variable  numbers:  3,  5,  6, 

12,  13,  15-22,  24-27,  40,  41,  29-31,  33-34 

• Upper  bound  on  design  variable  numbers:  44,  46,  47  and  49 

• Max.  violation  is  1.04%  (in  displacement  constraints) 
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TABLE  4.8.  NATURAL  FREQUENCY  AT  OPTIMUM  (RESONANT  FREQUENCY  = 29  HZ.) 


Natural  Frequencies  (in  Hz.) 

(Open  tail-boom) 

CASE  I:  Without  damage 

33.51 

CASE  V:  With  6 damage 
conditions 

43.91,  30.69,  28.999, 
44,39,  46,93,  44.07, 
28.999 

(Closed  tail-boom) 

CASE  I:  Without  damage 

53.28 

CASE  V:  With  6 damage 
condit ions 

56.01,  36.68,  36.44, 
60.64,  62.39,  60.84, 
34.55 

I 
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TABLE  A.  9.  COMPARISON  OF  OPTIMUM  RESULTS  OBTAINED  WITH  SUBSTRUCTURING 
FOR  OPEN  AND  CLOSED  TAIL-BOOM  STRUCTURES 


CASE  I 

CASE  V 

Opt imam 
height,  lbs. 


CPU  Time  per 
Design  Iter. 

Optimum 

Weight,  lbs. 

CPU  Time  per 
Design  Iter. 

Open 

Tail -Boom 

106.0 

5.65 

161.7 

A3. 5 

Closed 

Tail-Boom 

AA.5 

7.66 

77.8 

52.0 

CHAPTER  5 

DISCUSSION,  CONCLUSIONS  AND  RECOMMENDATIONS 

A general  method  for  optimal  design  of  fail-safe  structures  with  sub- 
structuring is  presented.  The  method  integrates  the  state  space  design  sen- 
sitivity analysis  for  fail-safe  structural  design  into  the  gradient  projection 
method  of  design  optimization.  A step-by-step  algorithm  for  optimal  design 
of  fail-safe  structures  is  stated.  Computational  aspects  of  the  method  with 
substructuring  are  discussed. 

A modified  Subspace  Iteration  method  for  computing  natural  frequencies 
of  a structure  by  substructuring  is  also  developed  and  integrated  into  the  op- 
timal design  algorithm.  The  method  is  quite  readily  programmed  and  integrated 
into  the  optimization  algorithm  with  substructuring.  An  analysis  of  the  me- 
thod indicates  that  there  is  a trade-off  between  computational  time  and  compu- 
ter core  requirements,  depending  on  whether  the  mass  matrix  for  the  structure 
is  computed  only  once  for  Subspace  Iteration  or  computed  in  every  Subspace  It- 
eration. 

Comparing  results  for  the  open  and  closed  tail-boom  structures,  one  con- 
cludes that  the  closed  structure  is  considerably  lighter  in  weight  to  support 
a given  set  of  loads.  Thus,  if  two  tail-booms  are  constructed  - one  open 
and  the  other  closed-  that  weight  roughly  the  same,  the  closed  tail-boom  can  be 
designed  so  that  it  is  able  to  withstand  more  damage  than  the  open  tail-boom. 
However,  there  is  a trade-off  between  the  ojpen  and  the  closed  tail-boom  struc- 
tures. The  trade-off  is  in  vulnerability  of  the  two  structures  to  blast. 
Whereas  the  closed  tail-boom  is  more  efficient  in  load  carrying  and  sustaining 
damage,  it  is  more  vulnerable  to  damage  by  projectile  fragments  and  charge  det- 
onations inside  the  tail-boom  structure.  Also,  the  closed  tail-boom  has  more 
exposed  surface  area  that  is  vulnerable  to  damage.  In  comparison,  the  open 
tail -boom  is  less  succeptable  to  damage  because  it  has  smaller  exposed  surface 
area.  Also  projectile  or  blast  fragments  may  simply  pass  through  the  struc- 
ture with  any  damage.  These  trade-offs  should  be  more  thouroughly  analyzed  be- 
fore a decision  is  made  to  go  ahead  with  either  an  open  or  a closed  tail-boom. 

There  are  several  areas  of  research  that  need  to  be  investigated  to  fully 
utilize  potential  of  the  optimal  design  method  developed  for  fail-safe  struc- 
tures. These  areas  are  briefly  outlined  here: 
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(1)  Potential  use  of  fiber-reinforced  composite  materials  in  fail- 
safe design  of  aircraft,  helicopter,  and  other  structures  should  be  evalua- 
ted . Trade-offs  between  structural  weight,  damage  sustainance.  ease  of  con- 
struction, and  construction  costs  should  be  analyzed. 

(2)  Definition  of  damage  to  a structure  needs  to  be  refined.  In  the 
present  work,  damage  to  parts  of  the  structure  is  specified  for  the  designer 
before  he  sizes  the  structural  elements.  However,  prediction  of  a damage  con- 
dition should  take  member  sizes  into  consideration. 

(3)  The  finite  elements  modeling  of  the  structure  needs  to  be  refined. 
The  finite  element  library  for  the  computer  program  should  be  expanded  to 
include  elements  such  as  the  beam,  the  plate,  and  the  quadrilateral  membrane 
element.  The  disign  sensitivity  analysis  method  with  these  elements  should 
be  developed. 

(4)  The  effect  of  body  forces  should  be  incorporated  into  the  computer 
program.  Also  the  effect  of  temperature  variations  on  structural  performance 
should  be  included  in  the  computer  program.  Note  that  the  general  optimal  de- 
sign formulation  and  the  algorithm  already  account  for  these  effects. 

(5)  An  algorithm  for  optimal  design  of  fail-safe  structures  that  use 
commercially  available  sections  should  be  developed.  This  will  reduce  fabri- 
cation costs. 

(6)  A formulation  and  an  optimization  algorithm  for  fail-safe  design 
of  structure,  subjected  to  transient  dynamic  loads  should  be  developed. 

(7)  Work  should  continue  in  development  of  innovations  for  improving 
efficiency  of  the  basic  optimal  design  algorithm  for  fail-safe  structures. 
Improvements  in  treatment  of  fail-safe  constraints,  step  size  selection  tech- 
niques, and  selection  of  weighting  parameters  are  some  of  the  areas  that  need 
further  refinement. 
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The  purpose  of  this  appendix  is  to  present  optimal  designs  for  several 
cases  of  an  open  truss  helicopter  tail-boom  without  substructuring.  The 
structure  is  the  tail-boom  for  a U.  S.  Army  Cobra  helicopter. 

The  basic  configuration  and  end  sections  of  the  tail-boom  are  shown  in 
Figure  A.l.  The  maximum  in-flight  loads  to  be  supported  by  the  tail-boom 
structure  are  also  shown  in  Figure  A.l.  The  structure  that  is  currently  in 
use  consists  of  longitudinal  members,  cross  members,  and  a skin  cover  to  ob- 
tain an  enclosed  tail-boom.  This  type  of  structure  is  vulnerable  to  blasts 
that  occur  inside  or  near  the  skin.  In  order  to  reduce  vulnerability  of  the 
structure  to  such  damage,  an  open  truss  type  structure  is  considered.  Accor- 
dingly, the  structure  shown  in  Figure  A.l  is  modeled  as  a 108  member  truss 
with  28  joints  and  72  degrees  of  freedom.  The  geometry  of  the  idealized 
structure  and  the  design  loads  are  given  in  Figure  A. 2.  The  element  number- 
ing system  for  a typical  panel  is  shown  in  Figure  A. 3.  The  member  definitions 
for  the  truss  are  given  in  Table  A.l. 

The  problem  is  to  minimize  the  total  weight  of  the  structure  and  at  the 
same  time  to  ensure  that  member  stress,  nodal  displacement,  member  buckling, 
and  natural  frequency  constraints  are  satisfied  under  projected  loading  and 
damage  conditions.  The  design  parameters  to  be  calculated  are  the  cross-sec- 
tional areas  of  the  members.  A lower  bound  constraint  is  also  imposed  on 
cross-sectional  area. 

The  members  of  the  truss  are  taken  to  be  tubular  sections.  Assuming  the 
sections  to  be  thin,  the  moment  of  inertia  and  cross-sectional  area  are  given 
as  I = ttR^ t and  A = 27rRt,  where  R is  the  mean  radius  and  t is  the  thickness 
of  the  tube.  In  calculating  the  Euler  buckling  load,  the  moment  of  inertia 

O n 

is  assumed  to  be  given  as  I = aA  . Therefore,  a = I/Az  is  given  as  R/4irt.  If 
R/t  is  conservatively  selected  as  12  to  14,  then  a * 1.0.  This  value  of  a is 
used  in  calculations. 

Design  data  for  the  structure  are  given  in  Table  A. 2.  The  working  stress 
for  each  member  is  assumed  to  be  approximately  60  percent  (-  25  ksi)  of  the 
yield  stress  (42  ksi)  for  the  material  used.  This  working  stress  corresponds 
to  a safety  factor  of  roughly  1.68.  Displacement  limit  of  t 0.5  in.  at  the 
nodal  points  are  based  on  approximately  1/3°  mis-alighment  at  the  center  of  the 
tail-boom.  The  lower  limit  on  member  cross-sectional  area  is  taken  as  0.0415 
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Figure  A. 2.  Arrangement  of  Members  for  Open  Truss  Tail-Boom 
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Following  grouping  of  members  with  members  of  a group  required  to 
have  same  cross-sectional  areas  is  used  to  maintain  some  symmetry 
in  the  structure 

Group  No.  Member  Numbers 


1 

2 

3 

4 

5 

6 
7 


2,3 

M 

5,6,9,10 

7,8,11,12 

13.15 

14.16 
17,18 


I 


< 


Figure  A. 3.  Member  Numbering  for  the  First  Panel 


TABLE  A. 1 

MEMBER  LOCATIONS  FOR  OI*EN  TRUSS  HELICOPTER  TAIL  BOOM 


Member 

End 

Nodes 

Member 

End 

Nodes 

Member 

End 

Nodes 

1 

3 

7 

11 

15 

73 

19 

23 

2 

1 

5 

9 

13 

74 

17 

21 

3 

2 

6 

10 

14 

75 

18 

22 

4 

4 

8 

40 

12 

16 

76 

20 

24 

5 

3 

5 

41 

11 

13 

77 

19 

21 

6 

- H 

42 

9 

15 

78 

17 

23 

7 

n 

43 

9 

14 

79 

17 

22 

8 

44 

10 

13 

80 

18 

21 

9 

8 

45 

10 

16 

81 

18 

24 

10 

6 

46 

12 

14 

82 

20 

22 

11 

8 

47 

11 

16 

83 

19 

24 

12 

7 

48 

12 

15 

84 

20 

23 

13 

7 

5 

49 

15 

13 

85 

23 

21 

14 

5 

6 

50 

13 

14 

86 

21 

22 

15 

6 

8 

51 

14 

16 

87 

22 

24 

16 

8 

7 

52 

16 

15 

88 

24 

23 

17 

7 

6 

53 

15 

14 

89 

23 

22 

18 

8 

5 

54 

16 

13 

90 

24 

21 

19 

7 

11 

55 

15 

19 

91 

23 

27 

20 

5 

9 

56  , 

13 

17 

92 

21 

25 

21 

6 

10 

57 

14 

18 

93 

22 

26 

22 

8 

12 

58 

16 

20 

94 

24 

28 

23 

7 

9 

59 

15 

17 

95 

23 

25 

24 

5 

11 

60 

13 

19 

96 

21 

27 

25 

5 

10 

61 

13 

18 

97 

21 

26 

26 

6 

9 

62 

14 

17 

98 

22 

25 

27 

6 

12 

63 

14 

20 

99 

22 

28 

28 

8 

10 

64 

16 

18 

100 

24 

26 

29 

7 

12 

65 

15 

20 

101 

23 

28 

30 

8 

11 

66 

16 

19 

102 

24 

27 

31 

11 

9 

67 

19 

17 

103 

27 

25 

32 

9 

10 

68 

17 

18 

104 

25 

26 

33 

10 

12 

69 

18 

20 

105 

26 

28 

34 

12 

11 

70 

20 

19 

106 

28 

27 

35 

11 

10 

71 

19 

18 

107 

27 

26 

36 

12 

9 

72 

20 

17 

108 

28 
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TABLE  A. 2 


DESIGN  DATA  FOR  OPEN  TRUSS  HELICOPTER  TAIL  BOOM 
A:  Data  Common  to  complete  as  well  as  damaged  structures 


Material 

Modulus  of  Elasticity 
Stress  limits 
Material  density 
Moment  of  Inertia 
Displacement  limits 
Lower  limit  on  cross- 
Sectlonal  area 
Upper  limit  on  cross- 
Sectlonal  area 


5 2024-T3  Aluminum  Alloy 

■ 10.5  x 103  ksi 

- ± 25.0  ksl 

- 0.1  lb/in.3 

: I “ aA2;  a “1.0 

■ ±0.50  in. 

- 0.0415  in.2 


B:  Loading  Data 

Number  of  loading  conditions  " 
Loading  for  complete  structure  : 


Node  Number 


Load  Component  (kips)  in  direction 


0.0 

0.0 

0.0 

0.0 

1.4903 

1.4903 

-1.4903 

-1.4903 


0.0 

0.0 

0.0 

0.0 

1.6918 

-1.3658 

1.6918 

-1.3658 


-0.140 

-0.140 

-0.140 

-0.140 

0.0 

0.0 

0.0 

0.0 


Lower  bound  on  natural  frequency  for  complete  structure  = 29  Hz 
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in.  which  corresponds  to  a tube  with  0.50  in.  outside  diameter  and  0.028  in. 
wall  thickness.  There  is  no  upper  limit  on  cross-sectional  area.  There  is 
only  one  loading  condition  for  the  structure,  which  is  given  in  Table  A. 2. 
There  are  six  projected  damage  conditions  for  the  structure,  given  in  Table 
A. 3.  For  each  damage  condition  a joint  of  the  structure  and  all  members  con- 
nected to  the  joint  are  removed.  Thus  each  damaged  structure  has  different 
stiffness  and  mass  matrices  and  state  variables.  Note,  however,  that  each 
damaged  structure  is  geometrically  stable. 

In  order  to  maintain  symmetry  and  to  facilitate  fabrication  of  the  struc- 
ture, 108  members  of  the  structure  are  divided  into  a total  of  42  groups  and 
each  group  is  assigned  a design  variable.  Therefore  each  panel  of  the  struc- 
ture (shown  in  Figure  A. 3)  has  seven  design  variables.  Also,  it  is  interest- 
ing to  study  the  effect  on  structural  weight  obtained  by  imposing  varying  de- 
grees of  performance  requirements  for  the  damaged  structures.  Thus  optimum 
solutions  for  the  following  five  cases  are  obtained. 


Case  I:  Complete  structure  with  no  damage. 

Case  II:  Complete  structure  with  damage  conditions  1 to  6 imposed  and 

the  structural  load  and  natural  frequency  requirements  for  dam- 
aged structures  reduced  to  two-thirds  of  the  normal  conditions. 

Case  III:  Same  as  Case  II  except  load  and  natural  frequency  requirements 
for  damaged  structures  are  80%  of  the  normal  conditions. 


Case  IV:  Same  as  Case  II  except  load  and  natural  frequency  requirements 

for  damaged  structures  are  90%  of  the  normal  conditions. 


Case  V:  Complete  and  damaged  structures  required  to  perform  for  full 

set  of  normal  conditions. 

Optimum  designs  for  the  open  truss  helicopter  tail-boom  for  Cases  I to  V 

are  given  in  Table  A. 4.  These  designs  were  obtained  by  starting  the  iterative 
2 

process  with  1.0  m as  cross-sectional  area  for  all  members  of  the  tail-boom. 
Comparing  the  results  for  Cases  I and  II,  one  concludes  that  when  performance 
requirements  for  projected  damaged  structures  (defined  in  Table  A. 3)  are  re- 
duced to  two-thirds  of  the  normal  conditions  there  is  essentially  no  penalty 
on  the  weight  of  the  structure.  However,  there  is  some  redistribution 
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TABLE  A. 3.  DAMAGE 

CONDITION  DEFINITIONS 

AND  FREQUENCY 

LIMITS 

Damage 

Condition 

Member (s) 

Damaged 

Node(s) 

Damaged 

% Reduction 
in  Area 

1 

21,25,28,32,33, 

35,39,44,45 

10 

100 

2 

1,6,12,13,16, 

17,19,23,29 

7 

100 

3 

58,63,65,69,70, 

72,76,82,84 

20 

100 

4 

73,78,84,85,88, 

89,91,95,101 

23 

100 

5 

56,59,62,67,68, 

72,74,78,79 

17 

100 

6 

3,7,10,14,15, 

17,21,26,27 

6 

100 
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of  the  material,  as  may  be  seen  from  optimal  solutions  for  Cases  I and  II 
given  in  Table  A. 4.  If  the  final  design  for  Case  I given  in  Table  A. 4 is 
taken  as  the  starting  design  for  Case  II,  there  are  large  constraint  violat ions . 
This  indicates  that  the  structure  constucted  from  the  solution  of  Case  I would 
fail  catastrophically  if  any  of  the  damage  conditions  defined  in  Table  A. 3 
occured,  even  after  the  load  and  the  natural  frequency  requirements  were  re- 
duced to  two-thirds  of  the  normal  conditions.  On  the  other  hand,  if  a tail- 
boom  is  constructed  from  the  final  areas  for  Case  II,  the  structure  is  able 
to  safely  support  two-thirds  of  the  load  carrying  requirement,  even  after  any 
of  the  specified  damage  occurs. 

Final  designs  for  Cases  III,  IV,  and  V are  also  given  in  Table  A. 4. 

They  indicate  that  there  is  a substantial  penalty  on  the  weight  of  the  struc- 
ture as  the  load  carrying  and  natural  frequency  requirements  for  the  damaged 
structures  are  increased. 

Due  to  ease  in  fabrication,  it  is  desirable  to  use  as  few  standard  sec- 
tions as  possible.  For  the  design  of  Cases  I to  V,  42  design  variables  (that 
is  42  types  of  sections)  are  used.  This  number  is  perhaps  too  large.  There- 
fore tail-boom  design  for  two  additional  cases  VI  and  VII  is  also  obtained. 

These  cases  are  as  follows: 

Case  VI:  The  number  of  design  variables  is  reduced  to  12,  with  2 de- 

sign variables  for  each  bay.  For  the  first  bay  of  Figure  A. 3, 
members  1-4,  13-16  have  same  cross-sectional  areas  and  members 
5-12,  17  and  18  have  same  cross-sectional  areas.  The  tail- 
boom  is  designed  with  six  damage  conditions  of  Table  A. 3 im- 
posed, and  complete  and  damaged  structures  are  required  to 
perform  for  full  set  of  normal  conditions. 

Case  VII:  The  number  of  design  variables  is  reduced  to  4 with  2 design 
variables  for  first  three  bays  and  2 design  variables  for  the 
last  three  bays.  For  the  first  three  bays,  all  longerons, 
vertical  and  croe0  members  have  the  same  cross-sectional  areas 
and  all  diagonals  have  same  cross-sectional  areas.  A similar 
grouping  is  done  for  the  last  three  bays.  The  tail-boom  is  de- 
signed with  six  damage  conditions  of  Table  A. 3 imposed,  and  com- 
plete and  damaged  structures  are  required  to  perform  for  full 
set  of  normal  conditions. 
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TABLE  A. A. 

OPTIMUM  DESIGNS  FOR  CASES  I TO  V OF  THE  TAIL-BOOM  STRUCTURE 


Design 

Variable 


Member 

Numbers 

2.3 

1.4 

5,6,9,10 

7,8,11,12 

13.15 

14.16 
17,18 
20,21 
19,22 

23,24,27,28 

25,26,29,30 

31.33 

32.34 
35,36 

38.39 

37.40 

41,42,45,46 

43,44,47,48 

49.51 

50.52 
53,54 

56.57 

55.58 

59,60,63,64 

61,62,65,66 

67.69 

68.70 
71,72 


Final  Cross-Sectional 


Case  I 

Case  1 1 

Case  III 

1.3750 

1.415 

1.6930 

1.3710 

1.424 

1.6440 

0.1375 

0.1391 

0.2094 

0.1395 

0.1544 

0.1464 

0.0415 

0.0415 

0.0415 

0.0821 

0.0809 

0.1374 

0.0415 

0.0415 

0.1777 

1.2420 

1.2610 

1.3870 

1.2390 

1.2600 

1.2400 

0.1741 

0.1593 

0.1751 

0.1649 

0.1864 

0.3504 

0.0415 

0.0415 

0.0479 

0. 1002 

0.1034 

0. 1948 

0.0415 

0.0498 

0.0909 

1.0290 

1.022 

1.0550 

1.0280 

1.0070 

1.0040 

0.2110 

0.1990 

0.2301 

0.2295 

0.2513 

0.2464 

0.0415 

0.0415 

0.0498 

0.1371 

0.1315 

0. 1228 

0.0415 

0.0415 

0.0451 

0.8221 

0.8218 

0.8237 

0.8226 

0.8020 

0.8179 

0.2365 

0.2316 

0.3045 

0.2587 

0.2425 

0.1891 

0.0415 

0.0415 

0.0415 

0.1575 

0.1372 

0.1715 

0.0415 

0.0503 

0.1283 

Areas  (in. ' 
Case  IV 

2.2810 

2.1220 

0.2427 

0.1589 

0.0726 

0.1700 

0.3187 

1.7060 

1.5770 

0.2161 

0.3981 

0.0415 

0. 1972 

0.1035 

1.1060 

1.070 

0.2585 

0.2738 

0.0818 

0.0962 

0.0773 

0.8759 

0.9044 

0.3733 

0.1508 

0.0753 

0.1230 

0.1745 


Case  V 
3.0250 
2.7880 
0.2684 
0.2266 
0.0998 
0.1589 
0. 3168 
2.2440 
2.0930 
0.3964 
0.4220 
0.0477 
0.  1522 
0.1231 
1.3060 
1.2700 
0.3404 
0.2894 
0.0928 
0.0899 
0.0897 
0.9313 
0.9761 
0.4043 
0.1583 
0.0902 
0.1078 
0.1714 


I 

i 


The  optimal  designs  for  the  last  two  cases  are  also  obtained  using  the 

same  computer  code  [1]  and  by  starting  from  uniform  cross-sectional  areas 
o 

of  1.0  in.  for  all  members.  The  final  areas  for  Case  VI  are  given  in  Table 
A. 5 and  for  the  Case  VII,  they  are  given  in  Table  A. 6.  As  expected,  there  is 
a substantial  penalty  in  weight  of  the  structure,  as  compared  to  the  weight 
obtained  in  Case  V.  This  indicates  that  the  designer  has  to  decide  whether 
the  weight  of  the  structure  or  its  fabrication  cost  is  critical,  because  as 
the  number  of  design  variables  is  reduced  the  optimum  weight  of  the  structure 
increases. 

The  constraints  that  are  critical  at  the  optimum  for  all  cases  are  given 
in  Table  A. 7.  For  all  cases,  all  active  constraints  are  satisfied  to  within 
0.10%  of  their  allowable  values.  The  natural  frequencies  of  the  complete 
and  damaged  structures  at  the  optimum  solution  are  given  in  Table  A. 8.  The 
cost  function  histories  for  all  cases  are  given  in  Figure  A. A.  In  most  cases, 
an  optimum  design  or  a design  very  close  to  the  optimum  was  obtained  in  20-30 
iterations. 

The  rate  of  convergence  to  the  optimum  is  highly  dependent  on  proper  se- 
lection of  the  step  size  parameter  q.  In  order  to  see  how  critical  the  step 
size  parameter  is,  several  step  sizes  for  Case  II  of  the  helicopter  tail-boom 
were  tried  and  it  was  possible  to  obtain  convergence  to  the  optimum  in  20 
iterations,  as  compared  to  32  iterations  shown  in  Figure  A. 4.  The  step  size 
in  all  calculations  was  selected  based  on  the  idea  of  specifying  a desired 
reduction  in  the  cost  function  [2]  . Change  in  the  cost  function  is  given  by 
the  linearized  formula 

JT 

6 ipQ  = A 6b  (A.  1) 

Now  substituting  for  6i|Jq  = -r^  (where  r is  a specified  reduction  ratio  and 
ipQ  is  the  current  value  of  the  cost  function)  and  for  6b  = -q6b^  from  Equation 
2.5-8  (where  6b^  is  assumed  to  zero;  that  is  all  constraints  are  assumed  to  be 
satisfied)  into  Equation  2.4-26,  one  obtains 

T 

n - r<|/0/AJ  6 b1  (A.  2) 

This  formala  is  used  in  calculating  the  step  size  at  the  start  of  the  itera- 
tions. The  step  size  parameter  is  monitored  and  sometimes  adjusted  as  the 
iterations  progress. 
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TABLE  A. 4.  (cont.) 


Lies  ign 

Member 

Final  Cross-Sectional 

Areas  (in 

• 2) 

Variable 

Numbers 

Case  I 

Case  II 

Case  III 

Case  IV 

Case  V 

29 

74,75 

0. 5806 

0.5846 

0.4995 

0.5390 

0.5515 

10 

73,76 

0.5830 

0.5689 

0.5626 

0.6633 

0.6666 

31 

77,78,81,82 

0.2675 

0.2626 

0.2331 

0.2651 

0.2934 

32 

79,80,83,84 

0.2883 

0.2695 

0.3453 

0.3273 

0. 3111 

33 

85,87 

0.0415 

0.0415 

0.0449 

0.0416 

0.0580 

34 

86,88 

0.1934 

0. 1676 

0.2132 

0.1705 

0. 1573 

35 

89,90 

0.0415 

0.0415 

0.0544 

0.1069 

0.1223 

36 

92,93 

0.2299 

0.  2244 

0.2274 

0.2682 

0.2740 

37 

91,94 

0.2090 

0.2250 

0.2021 

0.1372 

0.1184 

38 

95,96,99,100 

0.3295 

0.3188 

0.2905 

0.2134 

0.1855 

39 

97,98,101,102 

0.3428 

0.3248 

0.3318 

0.3382 

0. 3327 

40 

103, L05 

0.0564 

0.0415 

0.0757 

0.0921 

0.1089 

41 

104,106 

0.1036 

0.0875 

0.0999 

0.0947 

0.0926 

42 

107,108 

0.1987 

0.1929 

0.1905 

0.1899 

0. 1822 

Weight  in 

pounds 

105.6 

105.8 

116.8 

134.8 

161.1 

Average  CPU/ Iter.  In  sec. 
on  IBM  370-158(G) 

4.0 

24.0 

26.4 

26.7 

26.7 

Number  of  Active 
Constraints  at  Opt. 

12 

14 

11 

14 

10 

| | 6b* | | at  opt. 

2.8 

0.70 

3.78 

3.72 

3.49 

| | 6b^ | | max . 

53.8 

53.8 

53.8 

53.8 

53.8 
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TABLE  A. 5. 

OPTIMAL  DESIGN  FOR  CASE  VI  OF  HELICOPTER  TAIL-BOOM 


Design 

Variable 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


Member  Numbers 
1-4,  13-16 
5-12,  17,  18 
19-22,  31-34 
23-30,  35-36 
37-40,  49-52 
41-48,  53,  54 
55-58,  67-70 
59-66,  71,  72 
73-76,  85-88 
77-84,  89,90 
91-94,  103-106 
95-102,  107-108 


Final  Areas  (in  ; 


2.9370 

0.5698 

2.0430 

0.8459 

1.0760 

0.4047 

0.7033 

0.3615 

0.4470 

0.3294 

0.1554 

0.2511 


Optimum  Weight  in  pounds 


241.57 


Average  CPU/cycle  in  sec.  on  IBM  370-158  (G) 


26.8 


Number  of  Active  Constraints  at  Opt. 


6b 


at  Opt. 


6.1 


6b 


max 


89.7 


1 * 

I 


( 


TABLE  A. 6. 

OPTIMAL  DESIGN  FOR  CASE  VII  OF  HELICOPTER  TAIL-BOOM 


Design 

Variable 

Member  Numbers 

2 

Final  Areas  (in.  ) 

1 

1-4,  13-16,  19-22,  31-34, 

37-40,  49-52 

3.2960 

2 

5-12,  17,  18,  23-30,  35,  36 

41-48,  53,  54 

0.8895 

3 

55-58,  67-70,  73-76, 

85-88,  91-94,  103-106 

0.4283 

4 

59-66,  71,  72,  77-84,  89,  90 

95-102,  107,  108 

0.2796 

Optimum  Weight  in  pounds 

346.25 

Average  CPU/cycle  in  sec.  on  IBM  370-158  (G) 

18.0 

Number  of  Active  Constraints  at  opt. 

3 

II 5b1 ||  at 

opt. 

0.035 

| | 6b^ | | max 

155.1 

( 


TABLE  A. 7. 

CRITICAL  CONSTRAINTS  AT  OPTIMUM 

Case  I 

Displacement  in  the  direction  at  nodes  25  and  27,  and  lower  limit 
on  design  variable  numbers  5,  7,  12,  14,  19,  21,  26,  28,  33,  and  35. 

Case  II 

Same  as  in  Case  I,  except  design  variables  14  and  28  are  not  at  their 
lower  bounds  and  40  is  at  its  lower  bound,  and  buckling  constraint  for 
members  18,  36,  71  are  tight  under  damage  conditions  6,  1,  and  5, 
respect ively  . 

Case  III 

Displacement  in  the  direction  at  node  25  under  damage  conditions 

1,  2,  4,  5 and  6,  displacement  in  the  x£  direction  at  node  27  under  damage 
conditions  1,  2,  5 and  6,  and  lower  bound  on  design  variables  5 and  26. 

Case  IV 

Displacement  in  the  X2  direction  at  node  25  under  damage  conditions  1, 

2,  3,  4 and  5,  displacement  in  the  X2  direction  at  node  27  under  damage 
conditions,  1,  2,  3,  and  5,  frequency  constraints  under  damage  condi- 
tions 2 and  6,  buckling  constraint  for  member  66  under  damage  condition 

3,  and  lower  bound  on  design  variables  12  and  33. 

Case  V 

Displacement  in  the  X2  direction  at  node  25  under  damage  conditions  2,  3, 

4 and  5,  displacement  in  the  X2  direction  at  node  27  under  damage  con- 
ditions 2,  3 and  5;  frequency  constraints  under  damage  conditions  2 and  6; 
buckling  constraint  for  member  66  under  damage  condition  3. 

Case  VI 

Displacement  in  the  X2  direction  at  nodes  25  and  27  under  damage  condi- 
tions 4 and  5,  and  frequency  under  damage  condition  2. 

Case  VII 

Displacement  in  the  X2  direction  at  nodes  25  and  27  under  damage  condi- 
tion 5 and  frequency  constraint  under  damage  condition  2. 
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TABLE  A. 8 


STRUCTURAL  FREQUENCY  AT  OPTIMUM 


Damaged 

Condition 


Frequency  at  Optimum  (Hz) 

Case  I 

Case  II 

Case  III 

Case  IV 

Case  V 

Case  VI 

Case  VII 

34.34 

34.90 

36.75 

39.80 

44.12 

42.52 

43.19 

- 

24.83 

26.00 

27.44 

30.85 

31.79 

35.08 

- 

22.06 

23.82 

26.10 

29.00 

29.00 

29.00 

- 

35.61 

37.58 

40.81 

44.70 

43.56 

41.55 

- 

37.62 

39.64 

42.81 

47.21 

45.81 

45.77 

- 

35.52 

37.38 

40.53 

44.40 

43.46 

41.36 

- 

22.42 

23.85 

26.10 

29.00 

29.41 

29.42 

Complete  Structure 


2 


i 


It  should  be  noted  that  in  the  first  few  design  iterations  for  all  cases 
of  the  tail-boom  design,  there  were  a large  number  of  violations  (50  to  100) 
and  the  maximum  amount  of  violations  was  of  the  order  of  1500%.  The  fail- 
safe optimal  structural  design  algorithm  corrected  these  constraints  viola- 
tions without  difficulty. 
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APPENDIX  B 
to 

Report  Number  45 
FINITE  ELEMENTS  EMPLOYED 


j 

\ 

I 
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The  computer  program  for  fail-safe  structural  optimazation  w*th  substruc- 
turing (FSOS)  employs  truss,  constant  strain  triangular  (CST),  the  symmetric 
shear  panel  (SSP)  and  symmetric  pure  shear  panel  (SPSP)  finite  elements.  For 
convenience  the  stiffness  and  mass  matrices  for  these  elements  are  given  in 
this  appendix. 


a 

b 

E 

P 

^1*^1* ^1 


u,v,w 

x1,x2,x3 

*1  * *2  * *3 

r'll*e22,G12 

all’CT22,CT12 

t 


B.l.  Notation  and  General  Expressions 
length  of  SSP  or  SPSP  element 
height  of  SSP  or  SPSP  element 
modulus  of  elasticity 
material  mass  density 

direction  cosines  of  the  local  x^  axis  in  the  global  coordinate 
system 

displacements  in  local  coordinate  system 
global  coordinate  system 
local  coordinate  system 

strain  components  in  local  coordinate  system 
stress  components  in  local  coordinate  system 
thickness  of  SSP  or  SPSP  element 


0 = aspect  ratio  of  SSP  or  SPSP  element  (0  = 

b 

r = vector  of  nodal  displacement  in  local  coordinate  system 
B = strain-displacement  relation  matrix 
C,C  = stress-displacement  relation  matrices  in  datum  and  local  coor- 
dinate systems,  respectively 
D = stress-strain  relation  matrix 

k,k  = element  stiffness  matrices  in  datum  and  local  coordinate  systems, 
respectively 

R = rotation  matrix  from  local  to  global  coordinate  system 
8 = local  to  global  coordinate  transformation  matrix  for  stiffness 
and  mass  matrices 

N = shape  function  that  depends  on  x^.j^.x^ 

V = volume  of  the  finite  element 


A general  expression  for  the  element  stiffness  matrix  in  the  local  coor- 
dinate system  is  given  as  [4]: 


k = / BTDBdV 
V 

’ 


(B. 1-1) 


t 

1 


i 

( 

t 

\ 

l 

\ 


J 

> 

I 
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The  element  stiffness  matrix  relative  to  a global  coordinate  system  can  be 
obtained  using  3 and  k matrices  as  follows  [4]. 

k = fcSTke  (B . 1-2) 

A general  expression  for  the  element  mass  matrix  in  the  local  coordinate 
system  is  given  as  [4]: 


= / N NdV 
1 V 


(B. 1-3) 


The  mass  matrix  in  relative  to  a global  coordinate  system  can  be  obtained 
according  to  the  following  prescription  [4]: 


„T-  „ 
m = 3 m 3 


(B. 1-4) 


B.2.  Truss  Elemen t 

Truss  is  a one  dimensional  element  that  has  constant  strain  throughout 
its  length.  Figure  B.l  shows  a general  truss  element  in  its  local  and  global 
coordinate  systems.  Using  the  constant  strain  condition,  shape  functio  for 
the  truss  element  is  given  as  [4] : 


(1-0 


(1-0 


(1-0 


(B. 2-1) 


where  K = x^/L.  Using  Equation  B.l-1,  the  stiffness  matrix  for  the  truss  ele- 
ment is  given  as: 


symmetric 


(B. 2-2) 


Using  Equation  B.l-3,  mass  matrix  for  the  truss  element  is  given  as: 


pAL 

m = 


13  1 

2I3  J 


(B. 2-3) 


where  is  a 3x3  identity  matrix.  It  is  shown  in  Ref.  4 that  the  mass  matrix 
ffl  for  the  truss  element  is  invariant  under  any  rotation  of  the  coordinate  sys- 
tem, so  m = m for  the  truss  element. 

It  can  be  easily  shown  that  the  stiffness  matrix  for  the  truss  element 
relative  to  a global  coordinate  system  can  be  expressed  as: 


k « [f]BTB 


(B.2-4) 
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where  the  row  vector  B is  given  as: 


8 = r l 


1 


-l. 


(B.2-b) 


B.3.  Isotropic  Constant  Strain  Triangular  (CST)  Element 
This  element  resists  only  in-plane  stresses,  o^,  a 22'  anc*  °12‘  ^ese 
stresses  and  the  corresponding  strains  are  assumed  to  be  constant  throughout 
the  finite  element.  A constant  strain  triangular  element  with  its  local  and 
global  coordinate  systems  is  shown  in  Figure  B.2.  The  displacement  field  for 
the  CST  element  that  satisfies  the  conditions  of  constant  strain  is  given  as: 
u = c^x^  + c2^2  + c3 


(B. 3-1) 

Using  the  following  displacement  boundary  conditions  in  Equation  B.3-1,  the 


v = c,x,  + ccxn  + c, 
A 1 5 2 6 


constants  c^ .c^. • 


. c,  can  be  easily  solved: 
o 


,,-1  -1, 
u(xi>x2)  = r , 

v(xj,x2)  = r2 

~ ,~2  -2, 
u(x1,x2)  = r3> 

~2  2 

v(xlfx2)  = r^ 

(B.3-2) 

3 3 

u(xl5x3)  = r5> 

3 3 

v(x3,x2)  = r6 

Here  the  superscript  on  x^  and  x2  refers  to  the  nodal  point  of  the  finite  ele- 
ment (refer  to  Figure  B.2).  Substituting  Cj,c2, . . . .c, , calculated  from  boun- 
dary conditions  B.3-2,  one  obtains  u and  v in  terms  of  as  follows. 

1 L D 


bh 


'(s  - b)Xj  - h(x^ 


b) 


I (s  - b)X^  - h(X2  - b) 


-s(x1  - h)  + h(x2  - s) 
0 
bx. 


, — s (Xj  - h)  + h(x2  - h) 
0 


l 


0 


bx. 


6 J 


(B. 3-4) 


From  Equation  B.3-3,  the  shape  function  N can  be  identified  for  the  isotropic 
CST  element. 

The  strains  for  the  isotropic  CST  element  are  given  as: 


e = 


' "3 

*• 

£11 

U>1 

e22 

e 

v,2 

CN 

(J 

u,2  + v.| 

V. 

. 

H Br 


(B. 3-4) 
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Substituting  Equation  B.3-3  into  Equation  B.3-4,  one  can  identify  the  matrix 
B as: 

r ■ 


B=^ 


(s-b) 

0 

h 


0 

-h 

(s-b) 


-s 

0 

h 


0 

h 


b 

0 

0 


0 

0 

b 


(B. 3-5) 


Stresses  in  the  element  are  related  to  strains  through  the  generalized  Hooke's 
law: 

(B. 3-6) 

and  D is  given  as 


where  a 


c 

= a 


a = De 
a 


11 


22 


12 


D = 


1 - v 


1 

v 

0 


v 

1 

0 


(B. 3-7) 


(1  - v)/2 

Therefore  substituting  for  e from  Equation  B.3-4  into  Equation  B.3-6,  one  can 

obtain  stresses  in  terms  of  nodal  displacements  r, r,. 

12  b 

The  stiffness  matrix  for  the  isotropic  CST  element  in  the  local  coordi- 
nate system  can  be  obtained  by  substituting  for  B and  D from  Equations  B.3-5 
and  B.5-7,  respectively,  into  Equation  B.l-1.  Integrating  over  the  volume  of 
the  element  in  Equation  B.l-1,  the  element  stiffness  matris  is  given  as: 


k = k + k“ 


(B. 3-8) 


where  k is  the  stiffness  matrix  relative  to  normal  stresses  that  is  given  as: 


kn  = 


Et 


2bh(l 


2, 
v ) 


kS  = 


Et 


4bh(l  + v) 


' (b-s)2 
v(b-s)h 

h2 

Symmetric 

(b-s)s 

-vh(b-s) 

vhs 

-h2 

s2 

-vhs 

h2 

(B. 3-9) 

-(b-s)b 

-vhb 

-sb 

vhb 

b2 

0 

0 

0 

0 

0 0. 

matrix  relative  to 

shear 
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The  mass  matrix  for  the  isotropic  CST  element  in  the  local  coordinate 
system  is  obtained  by  substituting  for  N from  Equation  B.3-3  into  Equation 
B.l-3.  Carrying  out  the  indicated  integration,  one  obtains: 


(B. 3-11) 


(B . 3-12) 


In  order  to  assemble  stiffness  and  mass  matrices  for  the  entire  structure, 
one  needs  to  transform  the  element  stiffness  and  mass  matrices  relative  to  a 
global  coordinate  system.  It  can  be  shown  [4]  that  under  any  rotation  of  the 
coordinate  system,  the  element  mass  matrix  is  invariant,  that  is  m=m.  In  or- 
der to  transform  the  element  stiffness  matrix  relative  to  a global  coordinate 
system,  one  needs  to  define  a matrix  0 for  the  CST  element  and  then  use  Equa- 
tion B.l-2  to  obtain  k.  The  matrix  B is  given  as: 
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where  matrix  R is  given  as: 


r *1 

m-  n 

1 1 

1 

R = I „ 

L*2 

^ i 

n>2 , 1*2  are 

direction  1 

] 


(B. 3-13) 


the  line  4-1)  and  the  X2  axis  (that  is,  the  line  1-2)  relative  to  a global 
coordinate  system  x^>X2  and  x^.  These  direction  cosines  are  given  as: 


l2  " 


X2  ” x2 


(x^  - x|)  - si. 
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m, 
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, 3 ^ 
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) (B. 3-14) 
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B.4.  Symmetric  Shear  Panel  Element  (SSP) 

In  deriving  the  stiffness  matrix  for  SSF  elements  (Figure  B.3),  the  ba- 
sic assumptions  made  are:  1)  isotropic  material,  2)  uniform  thickness, 

3)  rectangular  configuration;  if  not  rectangular,  an  equivalent  rectangular 
plate  of  the  same  area  is  considered,  4)  symmetric  with  respect  to  the  middle 
surface,  5)  plane  stress  state,  6)  the  stress  distribution  is  assumed  as 
follows : 


o11(x1,x2)  = a1x2  + ct2 


1 


a22(xrx2)  = 0.0  .MB. 4-1) 

a12(xrx2)  = a3  J 

where  a^,a2>a3  are  constants,  and  7)  the  displacement  boundary  conditions  are 


u(0,b/2)  = r] 
u(a,b/2)  = r, 
v(0,b/2)  = f. 
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(B.4-2) 
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The  local  to  global  coordinate  transformation  for  nodal  displacements  is  ex- 
pressed as: 
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From  the  assumed  stress  state,  the  strain-displacement  and  the  boundary 
conditions,  the  displacement  state  can  be  obtained  as: 
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where 
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From  Equation  B.4-7  the  shape  function  for  the  SSP  element  can  be  readily 
identified.  The  strain  displacement  relations  are  obtained  using  Equation 
B.3-4  as: 

e = B? 

where 


e {en  e22  e12} 
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The  stress-strain  relation  for  plane  stress  is  given  by  the  generalized  Hooke's 
law  of  Equation  B.3-6.  The  matrix  D is  given  in  Equation  B.3-7.  Substituting 
in  Equation  B.3-6  the  values  of  strains  in  terms  of  displacements,  one  obtains 
the  stress-displacement  relation  as: 


a = Cr 


(B . 4-12) 


where 
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In  the  global  coordinate  system,  the  stress-displacement  relation  is: 


a = Cr 


where 


C = CB 

The  element  stiffness  matrix  in  the  local  coordinate  system  is: 

k = / BTDBdV  = t / BTDBds 
V s 

Thus,  one  obtains: 
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Finally,  the  Von  Mises  equivalent  stress  o for  this  element  is  given  as: 

(B.4-18) 


°c  ’ <°n  + >°u>H 


For  calculating  the  maximum  value  of  o from  Equation  B.4-18  the  following  ex- 
pressions for  and  o.^  are  used  (from  Equation  B.4-12): 


and 


°11  = a (t3  “ V 


J12  = 2(l+>0)  {a  (*4  " i2)  + b (t3  + fl^  } 


(B.4-19) 
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The  element  mass  matrix  in  the  local  coordinate  system  is  obtained  by 
substituting  for  N from  Equation  B.4-7  into  Equation  B.l-3.  The  elements  of 
the  symmetric  (4x4)  mass  matrix  are: 
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B.5.  Symmetric  Pure  Shear  Panel  (SPSP) 


The  element  stiffness  matrix  for  this  pure  shear  element  (Figure  B.3)  is 
also  obtained  by  following  the  previous  procedure  and  by  assuming  the  stress 
state  to  be  as  follows:  = 0,  022  = 0,  = where  is  a constant. 
The  element  stiffness  matrix  is  then  given  as: 
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C.l  Introduction 


In  this  appendix,  use  of  the  computer  program  SOSA,  (Structural  Optimiza- 
tion by  Substructures)  for  optimal  design  of  structural  and  mechanical  systems 
that  can  be  idealized  using  Truss,  CST  and  SSP  elements,  is  described.  The 
program  is  based  on  the  algorithm  and  the  logical  sequence  of  computations  of 
Chapters  II,  III  and  IV.  It  is  developed  in  FORTRAN  IV  using  the  IBM  360-65 
(370-158)  computer  at  the  University  of  Iowa.  The  program  can  be  used  for  op- 
timal design  of  structures  with  or  without  fail-safe  constraints. 

The  program  SOSA  has  eighteen  subroutines,  namely  VARI,  ELESTF,  STIFFM, 
RECALL,  DECUPP,  SOLDUP,  MEVEC , DEFREQ , ZBZIEF,  CONST,  ABSMAX,  GENC,  DELBE, 
DESW,  SDD,  SOLVEL,  SUBSP  and  JACOBI.  The  subroutine  VARI  generates  various 
variables  for  a substructure  as  shown  in  the  statement  C0MM0N/V2/  (see  Appen- 
dix D) . The  subroutine  ELESTF  generates  element  stiffness  matrix,  element 
mass  matrix  and  element  stress  matrix  (required  for  the  computation  of  bar 
forces  in  truss  elements  and  stress  components  for  CST  and  SSP/SPSP  elements) 
for  unit  value  of  design  variables.  These  quantities  are  stored  in  a vector 
form  for  subsequent  use  in  design  iterations.  The  subroutine  STIFFM  generates 
matrices  for  the  entire  structure  and  K^»a^  for  each  substructure.  It 

used  subroutine  RECALL  for  generating  element  mass  and  stiffness  matrices  in 
the  global  coordinate  system.  It  then  uses  subroutine  DECUPP  for  decomposing 
upper  band  of  matrices  (in  case  elements  connecting  interior  nodes  of 

the  r*"*1  substructure  are  damaged)  and  . The  matrix  Q^r,a^  is  also  compu- 
ted in  the  subroutine  STIFFM.  The  decomposed  matrices  and  K^’01^  over- 

write the  original  matrices. 

The  subroutine  MEVEC  is  used  to  compute  product  of  the  structural  mass 
matrix  and  the  matrix  of  eigenvectors.  Note  that  these  calculations  proceed 
elementwise.  The  subroutine  DEFREQ  computes  sensitivity  vector  for  a viola- 
ted frequency  constraint  under  all  damage  conditions.  The  subroutine  ZBZIEF 
computes  boundary  displacements,  interior  displacements  and  element  forces/ 
stresses  under  all  loading  conditions.  The  subroutine  CONST  checks  for  the 
maximum  stress  under  all  loading  conditions  and  previous  damage  conditions 
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for  elements  linked  to  a design  variable.  It  also  computes  sensitivity  vectors 
for  violated  stress  constraints.  The  subroutine  ABSMAX  computes  maximum  nodal 
displacements  under  all  loading  conditions  for  a damaged  structure.  The  maxi- 
mum displacements  are  checked  against  their  limit  values  and  sensitivity  vec- 
tors for  violated  constraints  are  computed.  The  subroutine  GENC  computes  the 
matrix  C^01^  of  Equation  2.4-11. 

The  next  three  subroutines  DELBE,  DESW,  and  SDD  are  used  in  computation 
of  changes  in  design  variables.  Lagrange  multipliers  are  computed  and  their 
signs  are  checked.  Constraints  corresponding  to  negative  multipliers  are  ta- 
ken out  of  the  violated  constraint  set.  The  subroutine  DESW  computes  changes 
in  design  variables  when  only  the  design  variable  constraints  are  violated. 

The  subroutine  SOLVEL  is  based  on  the  Gaussian  elimination  procedure  and  is 
used  to  compute  the  Lagrange  multiplier  vector  y.  The  last  two  subroutines 
SUBSP  and  JACOBI  are  used  to  compute  the  lowest  eigenvalue  and  the  correspon- 
ding eigenvector  for  each  damage  condition.  These  subroutines  are  based  on  the 
Subspace  Iteration  method  coupled  with  the  substructuring  technique,  as  ex- 
plained in  Section  2.2. 

A number  of  vectors  and  matrices  are  used  in  the  main  program  as  well  as 
in  the  subroutines.  In  order  to  save  computer  storage,  COMMON  statements  are 
used  (see  Appendix  D) . For  each  structure,  dimensions  of  various  matrices  de- 
pend on  the  number  of  members,  number  of  substructures,  number  of  degrees  of 
freedom,  etc.  Computation  for  dimensions  of  these  matrices  is  explained 
later  in  this  appendix.  Once  this  information  has  been  supplied,  the  compu- 
ter program  DIMCO  (Dimension  Computer;  listed  in  Appendix  D)  can  be  used  to 
generate  and  punch  dimension  cards  for  the  main  program  and  all  its  subrou- 
tines. 

C.2.  Data  Organization 

This  section  describes  a procedure  for  setting  up  the  problem  and  the 
input/output  data  organization  for  the  computer  program  S0S4. 
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C.2.1.  Problem  Set-up 
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\ 
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Setting  up  the  problem  is  fairly  simple.  The  complete  structure,  irre- 
spective of  the  number  of  damage  conditions,  is  divided  into  a number  of  sub- 
structures such  that  each  substructure  interacts  with  a minimum  number  of 
other  substructures.  A set  of  global  axes  for  the  structure  is  selected 
which  is  also  used  for  each  substructure.  The  numbering  of  nodes  is  done  in 
two  steps: 

(i)  Boundary  nodes  of  each  substructure  are  numbered  first  and  then 
the  interior  nodes.  The  node  numbers  for  each  substructure  begin 
with  1. 

(ii)  All  the  boundary  nodes  are  also  numbered  in  an  overall  system. 
This  numbering  system  simplifies  many  of  the  logical  statements  in  the 

program.  Hereafter,  numbering  of  boundary  nodes  will  imply  numbering  in  the 
overall  system. 

C.2.2.  Input  Data 

The  input  information  required  for  the  program  is  divided  into  four  sub- 
sections: 

(i)  Input  data  common  to  all  substrucrures 

(ii)  Input  data  for  individual  substructures 

(iii)  Input  data  for  damaged  structures 

(iv)  Other  input  data. 

Variables  of  the  program  are  defined  and  explained  according  to  the  READ 
statements  appearing  in  the  program  (Appendix  D) . All  the  input  information 
is  supplied  on  regular  computer  cards. 

C.2.2.1.  Data  Common  to  All  Substructures: 

1.  NUNIT,  NN,  NSU,  NDAM,  NLC,  NV,  NCC,  BNC,  NBW,  NPH,  NSD,  ISPSP  - FOR- 


MAT (1615). 

NUNIT  = Code  number  for  type  of  unit  used;  NUNIT  = 0 for  U.S.  - Bri- 
tish Units,  and  NUNIT  = 1 for  SI  units. 
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NN  = Code  number  for  type  of  structure;  NN  = 2 for  a 2D  struc- 
ture, and  NN  = 3 for  a 3D  structure. 

NSU  = Number  of  substructures. 

NDAM  = Number  of  damage  conditions. 

NLC  = Number  of  loading  conditions. 

NV  = Number  of  design  variables. 

NCC  = Number  of  degrees  of  freedom. 

BNC  = Number  of  boundary  degrees  of  freedom. 

NBW  = Upper  bandwidth  of  boundary  stiffness  (K^)  matrix  including 
the  diagonal. 

NPH  = Expected  size  of  the  violated  constraint  set,  that  is,  maxi- 
mum number  of  constraints  that  may  be  violated  in  any  design 
cycle. 

NSD  = Total  number  of  expected  stress,  displacement  and  frequency 
constraint  violations.  Only  NSD  number  of  constraint  viola- 
tions can  be  corrected  at  any  design  cycle. 

ISPSP  = Code  number  for  SPSP/SSP  elements.  If  ISPSP  = 0,  the  program 
S0S4  considers  SSP  elements,  otherwise  (ISPSP. NE.O)  SPSP  ele- 
ments . 

IFS,  IDV,  IFR,  IBUK,  IDIS,  IBDIS,  IPS,  IPD,  IPC,  JUSTW,  IAUT0  - FOR- 
MAT (1615) 

IFS*  = Number  of  iterations  for  which  stress-ratio  design  is  ini- 
tially required. 

IDV*  = Code  number  for  the  frequency  constraint. 

IFR  = If  this  variable  is  assigned  :a  value  of  1 and  frequency  con- 

straint is  to  be  imposed,  then  the  program  will  correct  only 
the  frequency  constraint  in  the  first  cycle. 

IBUK*  = Code  number  for  buckling  constraints. 

IDIS*  = Code  number  for  interior  displacement  constraints. 

IBDIS*  = Code  number  for  boundary  displacement  constraints. 

IPS*  = Code  number  for  printing  force  or  stress  matrix  at  each  iter- 

ation. When  IPS  = 1 force  matrix  will  be  printed,  and  when 
IPS  = 2,  the  stress  matrix  will  be  printed. 

IPD*  = Code  number  for  printing  displacement  matrix  after  each  iter- 
ation. 


92 


IPC  = Code  number  for  printing  stress  and  displacement  constraint 
violations  under  each  damaged  condition. 

JUSTW  = Either  0 or  1: 

If  IDV  = 0 and  JUSTW  = 0,  then  the  program  skips  frequency 
analysis  and  design  sensitivity  analysis  of  the  frequency 
constraint. 

If  IDV  = 0 and  JUSTW  = 1,  then  the  program  calculates  and 
prints  the  eigensolution.  However  the  frequency  constraint 
is  not  imposed. 

If  IDV  = 1,  then  the  program  solves  the  eigenvalue  problem 
and  imposes  the  frequency  constraint  regardless  (indepen- 
dent) of  the  input  value  for  JUSTW. 

implies  that  the  user  wants  to  supply  the  matrix  of 
eigenvectors  to  be  used  in  Subspace  Iteration. 

IAUT0  = (1;  implies  that  the  matrix  of  eigenvectors  will  be  auto- 
I matically  generated  in  the  computer  program  at  the  start 
'"'of  the  Subspace  Iteration. 

(*)  : If  value  assigned  to  this  code  is  0,  then  the  corresponding 

command  will  be  ignored.  For  example,  if  IBUK  = 0,  then 
buckling  constraints  will  be  ignored. 

ILIM,  ITRS,  LNSV,  LCON,  (ITY(I)  = 1,3),  IWMM  - FORMAT  (1615) 

ILIM  = Limit  on  the  number  of  iterations  or  design  cycles.  The 
program  stops  if  convergence  is  not  obtained  within  this 
specified  limit  on  number  of  iterations. 

ITRS  = Number  of  times  the  step  size  is  to  be  changed.  A provision 
is  made  in  the  program  S0S4  to  change  the  step  size  to  any 
desired  fraction  of  the  original  value  if  the  variation  of 
the  cost  function  remains  within  the  specified  limit  for  a 
specified  number  of  design  cycles.  This  is  done  to  obtain 
a finer  convergence  of  the  algorithm. 

LNSV  = Number  of  times  the  variation  in  the  cost  function  should 
remain  within  the  specified  limit  before  the  step  size  can 
be  changed  to  any  fraction  of  the  original  value. 
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ITY(l)  = 4 if  plane  (6  if  space)  truss  elements  are  present;  other- 
wise 0. 

ITY(2)  = 9 if  CST  elements  are  present;  otherwise  0. 

ITY(3)  = 6 if  SSP  elements  are  present;  otherwise  0. 

IWMM  = f*0,  generates  weighting  matrix  (see  Chapter  4) 

1,1,  sets  weighting  matrix  equal  to  identity  matrix. 

DF,  RIT,  RIN,  RL,  EP,  STP1,  STP2  - FORMAT  (8F10.4). 

DF  = Requested  reduction  in  the  cost  function  for  calculating 

the  step  size.  This  reduction  factor  is  used  in  the  regular 
computational  algorithm  and  may  be  changed  after  some  design 
cycles  based  on  the  criteria  described  above.  For  a five 
percent  reduction  in  cost  function,  DF  is  assigned  a value 
of  0.05.  This  variable  may  also  be  assigned  0 value,  and 
in  that  case  the  program  will  correct  only  the  violated  con- 
straints. The  objective  function  will  not  be  reduced. 

RIT  = Requested  reduction  in  cost  function  for  calculating  the 

step  size  whenever  all  constraints  are  satisfied  and  ILIM  > 

0.  This  variable  is  used  for  a finer  convergence  near  the 
optimum.  If  the  regular  step  size  is  to  be  used  then  RIT  = 
DF. 

RIN  = Requested  reduction  in  the  cost  function  for  calculating  a 
step  size  if  all  constraints  are  satisfied  initially  (RIN  > 

0) . A larger  step  size  may  be  taken  if  all  the  constraints 
are  satisfied  initially  in  order  to  speed  up  the  convergence. 
For  example,  RIN  = 0.25,  if  a 25  percent  reduction  in  cost 
function  is  desired  initially. 

RL  = Specified  variation  in  the  cost  function  for  reducing  step 
size,  that  is,  if  the  variation  in  cost  function  should  re- 
main within  one  percent  for  two  design  cycles  before  the 
step  size  may  be  changed,  then  RL  = 0.01  and  LNSV  = 2. 

EP  = A small  number  for  checking  e-active  constraints.  A value 

of  0.02  to  0.0001  (2%  to  0.01%)  has  been  used  in  many  calcu- 
lations. 

STP1  » A positive  multiplier  for  changing  DF  and  RIT  (see  LNSV  in 
card  no.  3). 
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STP2  = A positive  multiplier  for  changing  RL  (see  LNSV  in  card  no. 

3). 

(FACC(I),  I = 1,3),  RF,  CONL,  FORMAT  (8F10.3). 

EACC(I)*=  Multiplier  associated  with  weighting  matrix  (refer  to  Ch.  4). 
FACC(l):  for  truss  elements 

FACC(2):  for  CST  elements 
FACC(3) : for  SSP/SPSP  elements 

RF  = Resonant  frequency  for  the  truss  in  cycles  per  second  (Hertz). 
When  IDV  > 0,  RF  cannot  be  zero. 

CONL  = Maximum  constraint  violations  to  be  corrected.  This  para- 
metei  is  always  negative.  If  any  constraint  violation  is 
smaller  than  this  amount,  only  this  amount  will  be  correc- 
ted. For  example,  CONL  = -1.0  implies  A tf>  = -1.0  for  any 
A<(>  < -1.0.  Generally,  a large  value  is  used  for  this  parame- 
ter; a value  of  -100  is  recommended. 

ERR1,  ERR2,  ERR3 , ERR4,  ERR5  - FORMAT (5E16. 7) 

ERR1  = Error  criteria  used  for  checking  convergence  of  eigenvalues 
in  the  Subspace  Iteration  method.  A value  of  0.100E-05 
for  ERR1  has  been  used  quite  often  in  computation. 

ERR2  = Tolerance  in  design  variables  in  percent  at  the  optimum.  At 
each  design  cycle,  the  percent  change  in  each  component  of 
the  design  variable  vector  is  checked  and  if  each  component 
is  within  ERR2,  then  the  design  variable  vector  is  assumed 
to  have  converged.  The  value  assigned  to  ERR2  is  0.100E-02 
if  a convergence  of  0.1  percent  is  sought. 

ERR3  = Constraint  violation  telerance  in  percent  at  the  optimum 
point.  The  value  assigned  to  ERR3  is  0.100E-2  if,  at  the 
optimum  point,  each  violation  of  a constraint  is  to  be  within 
0.1  percent. 

ERR4  = Tolerance  in  the  cost  function  in  percent  at  the  optimum. 

The  value  assigned  to  ERR4  is  0.100E-02  if,  at  the  optimum 
point,  the  cost  function  variation  is  to  be  within  0.1  per- 
cent. If  all  the  convergence  criteria,  that  is,  ERR2,  ERR3, 
and  ERR4  are  satisfied  then  the  convergence  to  the  optimum 
is  assumed  and  the  design  process  is  stopped. 


* to  be  selected  by  the  designer 
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ERR5  = Error  criterion  used  in  checking  zero  elements  in  Gaussian 
elimination  procedure.  A value  of  0.100E-05  has  been  used 
in  the  present  computations. 

7.  (DLIB(I) , 1=1,  BNC)  - FORMAT  (8F10.3) 

The  boundary  displacements  limits  for  the  structure  in  inches  (metres) 
are  supplied  in  this  statement.  The  total  number  of  cards  for  this 
step  depends  upon  the  value  of  BNC  because  each  card  contains  only 
eight  numbers.  These  displacement  limits  are  punched  in  a definite 
order  determined  by  the  order  of  numbering  the  boundary  joints  of  the 
structure.  For  example,  if  joint  number  1 has  all  three  degrees  of 
freedom  then  it  will  have  displacement  numbers  1,  2,  and  3;  if  joint  2 
has  two  degrees  of  freedom  then  displacement  numbers  4 and  5 will  be 
for  these  two  degrees  of  freedom,  and  so  on. 

8-10.  This  set  of  input  data  cared  contains  information  about  the  loaded 
boundary  nodes  only.  The  boundary  load  matrix  of  dimension  (BNC  x 
NLC) , is  initialized  first  and  then  for  each  loading  condition,  fol- 
lowing information  is  READ  according  to  the  specified  format. 

8.  First  card  contains  NLJ,  the  number  of  loaded  boundary  nodes; 
FORMAT  (1615). 

9.  The  next  set  of  cards  contains  node  numbers  of  loaded  joints  in 
the  overall  boundary  node  numbering  syste  The  number  of  cards 
depends  on  NLJ  as  each  card  contains  only  sixteen  numbers;  FOR- 
MAT (1615)  • 

10.  The  last  set  of  information,  punched  on  separate  cards,  contains 
the  node  number  and  loads  in  kips  (Newton)  applied  along  permis- 
sible degrees  of  freedon;  FORMAT  (15,  3F10.2). 

11-12.  This  set  of  cards  provides  information  about  design  variable  linking 
of  members  across  the  substructure  boundaries. 

11.  LINK  - FORMAT  (15) 

LINK  - Number  of  design  variables  linking  across  substructure 
boundaries. 

12*  LINLG(I.l),  LINLG(I,2) ; 1=1,  LINK;  FORMAT  (1615). 

LINLG(I,1)  = Type  of  element 

LINLG(I,2)  = Design  variable  group  to  which  the  element  is  linked. 


* If  LINK  = 0,  skip  #12. 


i 

I 

i 

C.2.2.2.  Data  for  Individual  Substructures:  In  this  section  of  the  program 
input  data  for  each  substructure  is  READ  separately  in  a proper  sequence.  The 
total  number  of  such  sets  of  data  is  equal  to  NSU.  The  following  input  infor- 
i mation  is  given  for  the  rtfl  substructure: 

i 

13.  NJ(r ) , NBJ(r),  NCB(r) , NIC(r),  NBWl(r),  NBW2(r),  NBW3(r)  - FORMAT 

\ (1615). 

NJ(r)  = Total  number  of  nodes. 

NBJ(r)  = Number  of  boundary  nodes. 

NCB(r)*  = Number  of  boundary  degrees  of  freedom. 

NIC(r)*  = Number  of  interior  degrees  of  freedom 

NBWl(r)*  = Upper  bandwidth  of  the  matrix  Kv  including  the  diagonal. 

NBW2(r)*  = Upper  bandwidth  of  the  matrix  including  the  diagonal. 

DD 

NBW3(r)*  = Upper  bandwidth  of  the  matrix  including  the  diagonal. 

* These  parameters  for  the  stiffness  matrix  are  explained  in  Figure  C.l. 

14.  NZ(I,K);  I = 1,NB  - FORMAT  (1615);  NB  = NBJ(r). 

This  set  of  data  cards  contains  information  about  interconnection 

between  boundary  nodes  in  the  overall  and  the  substructural  numbering 

systems.  The  number  of  boundary  nodes  for  the  r1"*1  substructure  is 

NBJ(r),  and  they  are  numbered  in  an  ascending  order  starting  from  1. 

In  the  overall  boundary  numbering  system,  these  NBJ(r)  nodes  will 

correspond  to  some  boundary  nodes  in  the  overall  system.  For  example, 
t h 

if  r substructure  has  5 boundary  nodes,  then  they  will  be  numbered 

I,  2,  3,  4 and  5 in  the  substructural  or  local  boundary  node  number- 
ing system.  in  the  overall  system,  let  these  nodes  correspond  to 
nodes  10,  11,  12,  13  and  14.  Then  for  this  data  set,  the  number  10, 

II,  12,  13  and  14  will  be  punched  according  to  above  format. 

15.  J,  X(J, r) , Y(J,r) , Z(J,r),  (ND(I),  I = 1,  NN)  - FORMAT  (15,  3F10.3.3I5). 

J = Nodal  number 

X(J,r) 

Y(J,r) 

Z(J,r) 

The  remaining  integers  are  the  code  numbers  for  this  node.  Each  node 
has  its  degrees  of  freedom,  that  is,  displacements  in  coordinate  di- 
rections Xj,  i * 1 to  NN.  If  displacement  along  a particular  coor- 
dinate axis  is  allowed  then  that  code  number  is  assigned  a value  of  1, 


{'«■%  Y,  Z (or  x^,  x^)  coordinates  of  the  node  in 

f the  global  Cartesian  coordinate  system 
V Units:  inches  (metres). 
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otherwise  it  is  zero.  For  example,  the  code  number  1,  1,  and  0 for 
a particular  node  specify  that  the  displacement  in  the  x^direction 
of  this  node  is  zero.  The  total  number  of  cards  for  this  step  is 
NJ(r)  and  they  must  be  placed  in  an  ascending  order.  Note:  Skip  data 
card  numbers  16  to  19  if  NIC(K)  = 0. 

16.  DLIM(I.r):  I = l,NIC(r)  - FORMAT  (8F10.3) 


This  set  of  input  data,  which  contains  information  about  interior  dis- 
placement limits,  is  supplied  in  the  same  way  as  boundary  displacements 
of  Subsection  C. 2. 2. 1(7).  The  total  number  of  cards  depends  upon  the 
value  of  NIC(r). 

17-19.  The  next  data  to  be  supplied  is  the  interior  load  matrix.  This  infor- 
mation is  to  be  punched  in  exactly  the  same  way  as  boundary  load  matrix 
of  Subsection  C.2.2.1  (8-10).  The  dimension  of  r*"^  interior  load  ma- 
trix is  (NIC(r)  x NLC  x r) . Note:  Skip  data  cards  18  to  19  if  NLJ  = 0. 

Data  for  Individual  Finite  Elements:  In  this  section  of  the  program  input 

for  individual  finite  elements  is  READ  separately  in  a proper  sequence  (for 
t h 

r substructure  the  sequence  is:  truss  elements,  CST  elements,  and  SSP/SPSP 

elements).  If  any  type  of  element  is  not  present,  then  the  data  set  20-23  is 

not  to  be  supplied.  The  following  input  is  given  for  the  r^  substructure  and 

pth  type  of  element  (cummulative) . For  each  type  of  elements  (truss,  CST, 

SSP/SPSP)  data  set  20-23  should  be  supplied. 

20.  NM(p) , NG(p) , NW (p) , MEB(p),  MEF(p)  - FORMAT  (1615). 

NM(p)  = Number  of  elements. 

NG(p)  = Number  of  groups.  The  elements  of  a substructure  may  be 

linked  together  due  to  practical  and/or  economic  considera- 
tions. Grouping  is  limited  only  to  finite  elements  that 
are  of  the  same  type. 

NW(p)  = Number  of  design  variables  (NW(r)  < NG(r)).  If  cross- 

sectional  area  of  each  member  of  r^  substructure  is  to  be 
considered  as  a design  variable,  then  NM(r)  = NG(r)  * NW(r). 

If  NW(r)  < NG(r),  then  only  the  first  NW(r)  groups  are  con- 

sidered as  design  variables. 

MEB(p)  = Number  of  the  first  element. 

MEF(p)  = Number  of  the  last  element. 
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21.  J,  L,  (MN(N+M,  p),  M = 1,  L)  - FORMAT  (1615) 

(Initially  N = 0 and  later  N = N + L.). 

This  set  of  cards  contains  information  about  grouping  of  elements. 
Information  about  each  group  starts  on  a new  card.  The  number  of 
cards  for  this  step  is  NG(p)  and  are  placed  in  an  ascending  order 
of  group  number. 

J = Group  number. 

til 

L = Number  of  elements  in  the  J group. 

t h 

(MN(N+M,  p),  M = 1,  L)  = element  numbers  of  the  Jc  group. 

22.  BL(J,p),  BU(J,p),  ALP(J.p),  SL(J,p),  SU(I,p),  RO(J),  XNUU(J,p), 

E(J,p)  - FORMAT  (8F10.3). 

This  set  of  input  data  cards  contains  information  about  upper  and 
lower  bound  and  material  properties  for  the  elements  of  a group. 

The  number  of  cards  for  this  step  is  equal  to  NG(p)  and  they  must 
also  be  placed  in  an  ascending  order  of  group  numbers.  Each  card 
contains  the  following  information  about  the  elements  of  a group 
(say  Jth) . 

BL(J,p)*  = Lower  limit  on  the  design  variable.  It  should  be  no- 
ted that  this  must  be  a non-zero  positive  number. 
BU(J,p)*  = Upper  limit  on  the  design  variable. 

ALP(J,p)  = Constant  cT  for  each  truss  element  of  the  group.  This 

is  needed  for  computing  the  moment  of  inertia  of  an  ele- 
ment,  1^  = 7T.  b^.  For  CST  and  SSP  elements,  any  value 
may  be  used. 

SL(J,p)  = Compressive  stress  limit  in  kips  per  square  inch  (New- 
2 

ton/m  ) ; punched  as  a positive  number . 

SU(J,p)  = Tensile  stress  limit  in  kips  per  square  inch  (Newton/ 

2 

m );  punched  as  a positive  number. 

RO(J)  = Specific  weight  of  the  material  in  pounds  per  cubic 

2 

inch  (Newton/m  ) . 

XNUU(J,p)  = Poisson's  ratio  of  the  material. 

E(J,p)  = Modulus  of  elasticity  of  the  material  in  kips  per  square 

2 

inch  (Newton/m  ) . 

*For  truss  elements:  inch2  (metre2);  for  CST  and  SSP  elements:  inch 
(metre) . 
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23.  M8 , JP,  JQ,  JR,  MPC(M8,p)  - FORMAT  (16l5)  . 

This  set  of  input  data  cards  contains  information  about  the  element 
connectivity.  The  number  of  cards  for  this  step  is  equal  to  NM(p) 
and  they  must  also  be  placed  in  an  ascending  order  of  elements.  Each 
card  contains  the  following  information  about  the  element: 

M8  = Element  number, 

JP 

I 

Element  end  nodes.  For  truss  and  SSP/SPSP  elements, 
.skip  JR. 

The  last  information  on  this  card  defines  the  type  of  element  connec- 
tion according  to  the  following  code: 

-1,  implies  element  connected  to  boundary  nodes  only. 

0,  implies  element  connected  to  both  boundary  and 
interior  nodes. 

*+l , implies  element  connected  to  interior  nodes  only. 
C.2.2.3.  Input  Data  For  Damaged  Structures:  In  this  section  of  the  program. 


JQ 

JR 


M(M8,p)  = 


{: 


{ 


input  data  for  each  damage  condition  is  READ  separately  in  a proper  sequence 
(skip  this  section  if  NDAM  = 0).  The  total  number  of  such  sets  of  data  is 
equal  to  NDAM.  The  following  input  information  is  given  for  the  I11*1  damage 
condition. 


24.  RRF(I) , RDLIM(I) , RSL(I),  RSU(I),  RLOAD(I)  - FORMAT  (8F10.3). 

This  set  of  cards  contains  values  of  multipliers  to  be  used  in  de- 
fining the  frequency  limit,  displacement  limits,  stress  limits  and 

applied  load  for  the  It*1  damage  condition.  Each  card  contains  the 

£ h 

following  information  for  the  I damage  condition: 

RRF(I)  = Multiplier  for  lower  bound  on  natural  frequency. 

RDLIM(I)  = Multiplier  for  admissible  displacements. 

RSL(I)  = Multiplier  for  lower  limit  on  stress  (compressive  stress). 

RSU(I)  = Multiplier  for  upper  limit  on  stress  (tensile  stress). 

RLOAD(I)  = Multiplier  for  applied  loads. 

For  example,  RRF(2)  = 0 75  implies  that  the  resonant  natural  frequen- 
cy under  damage  condition  number  2 is  three-fourths  that  of  the  un- 
damaged structure. 

The  next  four  input  data  sets  (25-28)  for  I*-^1  damage  condition  are  READ  in 
the  following  order: 

DO  a r = 1,  NSU 
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25.  READ  KIIDAM(r , I)  - FORMAT  (1615) 

D(f>  a p = 1 , 3 (TRUSS,  CST,  SSP/SPSP) 
IF  (ITY(p)  .EQ.O)  GO  TO  a (see  It 3) 

26.  READ  N - FORMAT  (1615). 

IF  (N.EQ.O)  GO  TO  a. 

27.  READ  NDM(J),  J=  1,  N 

28.  READ  REDUC(J) , J = 1,  N 
a CONTINUE 


KIIDAM(r.I) 


c 

V*  0, 


Here  input  data  set  number  25  contains  damage  code  for  the  matrix 
K^j^as  follows: 

implies  that  the  matrix  is  not  changed  due  to 
damage . 

implies  the  matrix  is  changed  due  to  damage. 

In  data  set  number  26,  N is  the  number  of  elements  damaged  in  the 
I1-*1  damage  condition.  Note:  Skip  data  set  number  27  and  number  28 
if  N = 0.  Data  set  number  27  contains  identification  numbers  for 
damaged  elements.  The  number  of  cards  depends  upon  the  value  of  N, 
since  each  card  contains  at  the  most  16  values  (FORMAT  (1615)  ). 
NDM(J)  = the  Jth  damaged  member  in  the  It*1  damage  condition. 

For  example,  in  damaged  condition  number  1 if  there  are  6 damaged 
members:  1,  4,  6,  71,  75  and  76,  then: 

NDM(l)  = 1 

These  6 numbers  can  be  punched  on  one  data  card 
(FORMAT  (1615)  ). 


NDM(2) 


NDM(6)  = 7( 

In  data  set  number  28,  a reduction  ratio  for  each  damaged  member  is 
given  to  define  the  extent  of  damage.  The  number  of  cards  depends 
upon  the  value  of  N since  each  card  contains  at  the  most  8 values 
(FORMAT  (8F10.3)).  A total  loss  of  the  member  is  denoted  by  speci- 
fying 1.0  to  its  reduction  ratio.  In  the  above  example,  if  percen- 
tage of  damage  to  members,  1,  4,  6,  71,  75  and  76  are  10%,  40%,  60%, 
90%,  100%  and  20%,  respectively,  then: 

REDUC(l)  = 0.100\  These  numbers  can  be  punched  on  one  data  card 

(FORMAT  (8F10.3)). 


REDUC(2) 

REDUC(6) 


0.400 

0.200 


} 


I 

| 


< 


J 
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C . 2 . 2 . 4 . Other  Input  Data: 

29.  Skip  this  set  of  data  if  IDV  = 0 and  JUSTW  = 0,  or  if  IAUTO  = 1. 
Otherwise,  supply  the  matrix  of  eigenvectors  according  to  the 
Format  5E16. 7. XEIG(J,I)  where  J = 1,2... NCC 

and  I = 1,2. 

Note  that  in  the  Subspace  Iteration,  two  eigenvectors  are  needed  to 
accurately  calculate  the  lowest  eigenvalue.  The  input  matrix  of 
eigenvectors  XEIG(J,I)  need  to  be  in  the  following  form: 


XEiG( J, I)  = 


The  last  two 
order: 

DO  a r = 1,  NSU 
DO  a p = 1,  3 

IF  (ITY(p).EQ.O)  GO  TO  a (see  It 3) 

30.  READ  B(I,p) , 1-1,  NG(p)  - FORMAT  (8F10.3) 

31.  READ  IGRT  (I,P),  1-1,  NG(p)  - FORMAT  (1615) 
a CONTINUE 

Input  data  set  number  30  contains  starting  valued  of  design  variables 

2 2 

(cross-sectional  area  in  inch  (metre  ) for  truss  elements,  and  thick- 
ness in  inches  (metres)  for  CST  and  SSP/SPSP  elements)  and  must  be 
placed  in  the  ascending  order  of  group  numbers. 


BNC 

- 

2 

BNC 

Total  number  of  boun- 
dary DOF  for  the  com- 
plete structure. 

BNC+1 

Total  number  of  inter- 

NIC(l) 

! 

ior  DOF  for  substruc- 

BNC+NIC(1) 

ture  1. 

BNC+NIC(1)+1 

Total  number  of  inter- 

NIC(2) 

! 

ior  DOF  for  substruc- 

BNC+NIC ( 1 ) +NIC ( 2 ) 

ture  2. 

BNC+NIC(1)+NIC(2)+1 

NCC  is  the  total  number 

NIC(rth) 

j 

of  DOF  for  the  complete 

NCC 

structure. 

input  data  sets  (// 30  and  #31)  are  READ  in  the  following 
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tK 

Input  data  set  number  31  detines  status  of  the  design  variable  (DV) 
grouping. 

C -1,  implies  that  DV  is  linked  to  DV  of  previous  sub- 
[ structure 

IGRT(I,p)  = i 0,  implies  that  the  DV  is  fixed 

+1,  implies  that  the  DV  is  free,  that  is,  neither 
^ linked  nor  fixed. 

C.2.3.  Output 

Two  types  of  outputs  are  received  from  the  computer  program;  printed 
output  and  punched  output  on  computer  cards.  In  the  printed  output,  all  of 
the  input  data  is  first  printed  out  for  verification  purposes.  At  each  de- 
sign cycle,  value  of  the  cost  function,  values  of  the  design  variables,  type 
and  number  of  constraint  violations,  and  the  member  force  matrix  are  printed 
out.  Also,  Lagrange  Multipliers,  changes  in  design  variables  and  the  cost 
function  history  are  printed  out. 

The  punched  output,  consisting  of  three  sets  of  data  cards,  corresponds 
to  the  data  required  in  set  numbers,  29,  30  and  31,  respectively.  If  IDV  = 0, 
then  the  first  data  set,  consisting  of  eigenvectors  of  last  design  cycle,  is 
not  punched.  The  last  two  data  sets,  consisting  of  design  variables  of  last 
iteration  and  their  status  (linked,  fixed  or  free)  are  punched  out  for  subse- 
quent computer  runs,  if  necessary. 

C.3.  Computation  of  Dimensions  of  Various  Matrices 

The  dimensions  of  various  matrices  and  vectors  depend  upon  the  size  of 
the  structure  considered.  Various  variables  like  BNC,  NLC,  NCI(K),  etc.  as 
defined  in  Section  C.2,  determine  sizes  of  various  matrices.  For  easy  compu- 
tation of  dimensions,  the  dimension  statements  used  in  the  program  (Appendix 
D)  are  explained  here  in  terms  of  these  variables. 

DIMENSION  PB (BNC, NLC) , ALP(NGU.KKU) , DBIN(ILIM,2) , OO(NV),  FACC(3), 

FB(ILIM) , BETA(2*SN) , CL(3),  NZ(NBJL.NSU) , LINLG(LINK,2) 

NJL(NLJ,  NW (3)  , NEGV(NDAM+1) 

COMMON /V2/  NIC(NSU) , NW(KKU),  NG(KKU) , NBWl(NSU),  NBW2(NSU,  NBW3(NSU), 
NM(KKU) , NBJ(NSU),  NJ(NSU),  NCB(NSU),  NEW(NSU),  IQS(NSU), 
MEB(KKU) , MEF(KKU) 

COMMON /PI/  B1 (9,9),  B2(9,9),  B3(9,9),  ESF(9,9),  NA(MAX(NM, 9) ) , NI1(9), 
NJ1(9) , NJ2 (9) 
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C0MM0N/P2/ 


COMMON/ P3/ 

COMMON/P4/ 
COMMON/P5/ 
COMMON /Rl/ 
COMMON/R2/ 

COMMON/ R4/ 
COMMON /R5/ 

COMMON/ Al/ 
COMMON/ A3 / 

COMMON /A4/ 
COMMON/ A5/ 
COMMON /A6/ 

COMMON/A7/ 
COMMON/ Cl/ 
COMMON/ C3/ 
COMMON/C4/ 

where 

NBJL 

NCIL 

NCBL 

NU3 

NGU 


XNUU ( NGU , KKU ) , ELL(M8,K21),  BU(NGU.KKU),  STRESS (NTE*3+NCE*27+ 
NSE*12) , TCSM(NTE+NCE+NSE*21) , TRCSSP(NTE*6+NCE*45+NSE*21) , 
XCOST(3) , ICSS(M8,K21) , ISAC (M8 ,K21) , INDC(M8,K21) , IGRT(NGU, 

KKU),  IGRE(M8 ,K21) , NNDC(NTE*6+NCE*9+NSE*6) , LLN(3) , ITY(3), 
ICSSM(M8,K21) 

EVEC(NCC,NDAM+1) , RRF(NDAMfl),  RDLIM(NDAM+1) , RSL(NDAM+1),  RSU 
(NDAM+1) , RLOAD ( NDAM+1 ) , REDUC(K22),  NDOF(NDAM+l) , NDM(K22) , 
NBDAM(KKU.NDAM) , KIIDAM(NSU, NDAM+1) 

INF(NSD,8) , NGV(NGU.KKU),  INO(NSD),  NDISP(NCC) 

YK(NCC) , YM(NCC) , SK(NCC) , SM(NCC) , EY(NCC),  SG(NCC) 

BL (NGU, KKU) , DLIB(BNC) 

PI(NCIL,NLC,NSU) , RR(M8,K21),  E(NGU,KKU) , MN(M8,KKU) , MON (NGU, 
KKU),  MN(M8,KKU),  NOM(NGU,KKU) 

IIL(NSD,NSU) , KLC(NSD) , IOK(NSU),  NO(NLC) 

B (NGU, KKU) , SL (NGU, KKU) , SU(NGU.KKU),  DPB(K1,  K2) , D^IM(NCIL,NSU) , 
SS(NV) 

Q(NCIL,NCBL,NSU) , ZI(NCIL,NLC,NSU) , C(BNC,NBW),  SB(BNC.NLC) 

BR(M8,K21),  TRSF(NTE.NLC) , CSTF(NCE,NLC ,4) , SSPF(NSE,NLC, 3) , 
Z(NV,NSU) , SZE(NPH) , MP(M8,K21),  ND(K3) 

X(maxo(NJ(r) ,NTE) ,NSU) , DLP(NPH) , DLPH(NPH,  T(K4),  WM(NV,  RO(NV) 

D(K5,K6),  DS(K5,K7) , A2(BNC,K9),  DKI(NCI,NU3) , KIIUBW(NSU) 

DPZ(K10,K9) , ZZ(K11,K12) , BE(K11,K12),  W(K11),  H(K26) , W(K13) , 

Y (M8.NSU) , NZC(NCBL.NSU) 

DPX(NGG.NSD) 

XEIG(NCC,2),  YXEIG(NCC,2),  WS (2) , DM(1,1),  IET (NDAM+1) 

QQK(2 , 2) , QQM (2,2),  QA(2,2) 

ETC(NV*IPDAM) , TEI(IPDAM),  TE(IPDAM) 


max  {NBJ(r)}^ 
r 

max  (NIC(r)}  I 


max  (NCB(r)}  J 
r 

NSU 

l NBW3(r) 
r=l 


r = 1 to  NSU 


maximum  number  of  groups  for  any  type  of  finite  element  in  a sub- 
structure 
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KKU 

NLJ 

M8 

NTE 

NCE 

NSE 

NM 

NGG 

IPDAM 

PN 

K1 

K3 

K4 

K5 

K7 

K10 

K12 

K21 

K22 

K26 


= NSU*K21 

= number  of  loaded  nodes. 

= maximum  of  truss,  CSX  or  SSP/SPSP  elements  in  the  structure. 
= max (NTE, NCE, NSE) 

= number  of  truss  elements 
= number  of  CST  elements 
= number  of  SSP/SPSP  elements 
= NTE+NCE+NSE 

NSU 

= l NG(k) 
k=l 


SN  = 2*NN 

K2  = max(NSD,NU3) 


= NDAM+1 
= 2*SN  , 

= max(NV.NCIL)  , 

NSU 

= max  NPH,  SN*  £ NJ(1) 

1=1 

= max  NPH.NM 

= max(NCIL,BNC  , K6  = max(NU3,NBW) 

= max(NSD,NCBL  + NLC)  , K9  = max(NSD,NCBL) 

= max(NSD,NCIL)  , Kll  = max(NPH,NV) 

= max (NLC, 3)  K13  = max (NPH.NM) 

= number  of  finite  elements  used 

= total  number  of  damaged  members  under  all  damage  conditions 
= max(NV,M8) 


After  dimensions  of  various  matrices  have  been  determined,  the  computer 
core  requirements  can  easily  be  specified.  For  IBM  360/65,  the  compilation 
step  in  double  precision,  requires  a computer  core  of  184K,  regardless  of  di- 
mensions of  various  matrices. 

C.4.  User's  Manual  for  the  Computer  Program  DIMCO 

As  noted  earlier,  the  computer  program  S0S4  has  eighteen  subroutines. 

Each  subroutine  has  several  COMMON  statements.  These  statements  are  dependent 
on  a structural  design  problem.  It  is  cumbersome  and  time  consuming  to  punch 
these  cards  for  each  structural  design  problem.  Therefore,  a computer  program 
DIMCO  (Dimension  Computer)  has  been  developed  to  calculate  dimensions  of  various 
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- . 


matrices  and  to  generate  COMMON  statements  for  all  subroutines  of  S0S4.  For 
each  structural  design  problem,  the  program  DIMCO  can  be  used  to  generate  di- 
mension cards  for  the  program  S0S4  and  each  of  its  subroutines. 

The  program  DIMCO  requires  only  a few  simple  input  data  cards  (in  integer 
FORMAT)  as  described  below: 


NN 

NSU 

NDAM 

NLC 

NV 

NCC 

BNC 

NBW 

NPH 

NSD 


ITE 

NBLJ 

NDMT 


LINK 


ILIM 


■ft 


Card  n (FORMAT  1615) 

for  2 dimensional  structure 
for  3 dimensional  structure 
= number  of  substructures 

= number  of  damage  conditions 

= number  of  loading  conditions 

= number  of  design  variables 

= total  number  of  degrees  of  freedom  (DOF) 

= total  number  of  boundary  DOF 

= upper  banwldth  of  the  matrix  Kg  (Effective  boundary  stiffness  ma 
trix) 

= maximum  number  of  constraint  violations  allowed  at  any  design  itera 
tion 

= maximum  number  of  stress,  displacement  and  natural  frequency  con- 
straint violations  to  be  corrected  at  any  design  iteration 
= number  of  different  type  of  elements  for  the  structure 

= number  of  boundary  loaded  joints  for  the  undamaged  structure 


total  number  of  damaged  members 

fo,  when  there  is  no  design  variable  linking  with  previous  sub- 


structures 

|l,  when  there  is  (are)  design  variable(s)  linking  to  previous  sub 
structures 

maximum  number  of  design  iterations  allowed 
Card  112  (FORMAT  1615) 

ITY(l)  - 1 if  truss  elements  exist;  0 otherwise 

ITY(2)  = 1 if  CST  elements  exist;  0 otherwise 

ITY(3)  = 1 if  SSP/SPSP  elements  exist;  0 otherwise 
Data  Set  #3  (also  refer  to  Figure  C.l  of  Appendix  C) 

(i)  Information  about  the  substructure  where  K**l,2. . . ,NSU  (FORMAT 

1615) 
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NJ  (K) 

NBJ(K) 

NCB(K) 

NIC(K) 

NBW1(K) 


= number  of  joints  for  the  substructure 
= number  of  boundary  joints  for  the  Rth  substructure 
= number  of  boundary  DOF  for  the  Rth  substructure 

= number  of  interior  DOF  of  boundary  joints  for  the  substructure 


rth 


substruc- 


upper  bandwidth  of  the  entire  stiffness  matrix  for  the  K1 
ture 

NBW2(K)  =*  upper  bandwidth  of  the  matrix  for  the  substructure 
NBW3(K)  = upper  bandwidth  of  the  matrix  Kj-j  for  the  Kch  substructure 
NILJ(K)  = number  of  interior  loaded  joints  for  the  K*"'1  substructure 
(ii)  Information  about  the  Jt^1  type  of  elements  in  the  K1-^1  substructure 

where  J=l,2,3  (FORMAT  1615).  Omit  this  data  set  if  ITY(J)  = 0. 
NM(KK)  = number  of  J type  of  elements  for  the  K1-*1  substructure 
NG(KK)  = number  of  groups  for  the  type  of  elements  and  the  K1"*1  substruc- 
ture 

NW(KK)  = number  of  design  variables  for  the  type  of  elements  and  the  K*-^1 
substructure 

MEB(KK)  = beginning  member  number  of  the  J1-*1  type  of  elements  for  the  sub- 

structure 

MEF(KK)  = final  member  number  of  the  J[h  type  of  elements  for  the  sub- 

structure 

For  an  open  truss  helicopter  tail  boom  with  3 substructures  and  1 element 
type  (truss),  K=3  and  ITE*1.  Therefore  a total  of  only  8 input  cards  (1+1+6) 
are  required.  In  general,  a total  of  p cards  are  required  for  the  computer 
program  DIMCO  where  p = 2 + (NSU)  * (1  + ITE) . 


1 


i 

I 


f 

IBIS  PAGE  IS  BEST  QUALITY  PRACTICABL| 
PRO*  COPY  PURHISHKD  TO  DOC 


Listing  of  the  Program  SOS4 


/TSSOS  J DC  ( , 30,  *0,2091 ), *Dl  NTDUC'  ,TIME=25  JOB  603 

*MESSAGEL  PLEASt  I‘4i  RM^ETE  MY  OUTPUT  PUNCHED  CA’.DS 


/ EXEC  FORTCL  G,  REGl  JN  = 1,4  K » T I ME  =25 
/F  ’RT.SYS  M Dt)  * 

( npl ici r real*8  ( i * u-z > 

INTEGER  SIZE.BNC.Si 

DIMENSION  PrJ(  36,  1 ) » AL  P ( 14,  6),I)BIN(  20,  2),0M  5l),FACC(  3), FBI 

1 20)  ,9tTA(  12), ELI  3>,'IZ(  8,  3),LINlG(  1,  2),NJLI  4I,NVV(  3),NEGV( 

2 Z) 

SIMMON  STEP.BNC ,SN, nBW.SI ZE.NLC ,NSU 

CUMMON/V 1/N1 ,NEf ,N*'K  , NGK.  MA  » NUl ,NU2 , NU3 , Ml , NB , NJK, NC , Nil , I SO, IQ1 
C9MMP  1/V2/NICI  3), VI  6),NG(  6),NBWi(  3),NBW2(  3),NBW3I  3I,NMI  6), 
INBJI  3 ) » NJ  ( 3 ) , NCE I 3), NEW!  J ) , I OS  I 3),MEBI  6),MEF<  6) 

COMM  ON/ P l /B 1 1 0,  9), 1321  9 , 9), 331  9,  9),ESFI  9,  9),JAI  15b), NIK  9 
1 ) , N J 1 1 V >,  JJ2(  9) 

OUMMC  I/P2/XNUUI  14,  6l,cLL(108,  2),^U(  14,  6 ) , STRESS  I 1620 ) , TCSM I 
l 156  ) » TRCSSPI2808),  <C  OS  T ( 3),ICSSI  108,  2),ISACl  108,  2),INDC(  108 
2,  2 ) , I G R T I 14,  6),r^RE(  103,  2),NNDC1  1080), UNI  3),ITY«  3),ICSSM| 

3 10  8,  2 ) 

COM MON/P 3/EVECI  1,  ll.RRFI  7), RI3LIM  7),RSL(  7l,RSUl  7),RL0AD(  7) 
l.REDUCI  90 ) , NDOF ( ZI.NDMI  90) .NBDAMi  4,  6),KIID\M(  3,  7) 

COMMON /P4 /INF(  SO,  <3  ) » NGV  I 14,  6), I, NO!  50J,NDISP(  72) 

COMMON/PS/YKl  1 ) , Y M I l ) , SK  I l),S.M(  1),EYI  1),SG(  l) 

COMMON/R  l/BL I 14,  bl,DLI3(  3b) 

COMMON /R2/PI ( 12,  l,  3 ) , RR  ( 108,  2),fc|  14,  6),MN(  108,  6),N0MI  14, 

1 6) 

C0MM0N/R4/I IL I SO,  3),KLCI  50),I0K!  3),N0I  l) 

COMMON / R S/B I 14,  b),SL(  14,  b),SU(  14.  b),DPBI  SI,  SO ) , DL I MI  12,  3) 
I , SS  * ->1) 

COMMON/ A I/O  I 12,  24,  3),Z!(12,  1,  3), Cl  36,  24),ZB(  36,  1) 

COMMON/A 3/8R I 108,  ?),TRSFI  108,  1),CSTF(48,  1,  4),SSPF(  1,  1,  3), 
1ZI  SI,  3 ) ,|3Z  E I 60  ) , MP  ( 108,  2),N0I  216) 

C0MM0N/A4/X I 108,  )|,OLP<  60),r)LPII(  60),  Tl  156), WM(  5l),R0l  51) 
COMMOR/AS/DI  3b,  24  ) , OS  ( 36,  50),A2I  36,  SO  ) .OKI  I 12, 36  ) ,KI  IUBWI  3) 
COMMON/ A6/0P  Z I SO,  iO ),ZZ(  72,  3), BE!  108,  3), HI  72), HI  108), VV( 
l 156), Y<  108,  3),N/C(  24,  3) 

C0MM0N/A7/DPXI  62,  SO) 

COMMON/C  1/XE  ICI  72,  2),YXEIGI  72,  2),WSI  2),DM(  l,  D.IETI  7) 
i/C3/  QNK I 2,  2 ) , UQM I 2,  2),QAI  2,  2) 

COMMON  /C  4/E  TCI  357), TEH  7 ) , TE  ( 7) 

***************************  ***************************************** 
* * 

* PROGRAM  - 'FSSP..'  FAIL-SAFE  STRUCTURAL  OPTIMIZATION  WITH  * 

* SU3STRUCTURING  * 

* PROGRAMMER  - A5HUK  GOVIL  * 

* DIVISION  OF  MATERIALS  ENGINEERING,  * 

* UNIVERSITY  nF  IOWA,  IOWA  CITY,  IOWA  52240  * 

* AUGUST,  1977  * 

t * 

* FAIL-SAFE  OPTICAL  JCSIGN  OF  FINITE  DIMENSIONAL  MECHANICAL  SYSTEMS* 

* SUDJECTCU  TO  STATIl  LOADING  * 


no 


C * CONSTRAINTS  ON  - 0!  -SECT  STKESS/VON  FUSES  EQUIVALENT  STRESS,  NODAL  * 

C * D!  'PLACEMENT , FREQUENCY,  ANO  BOUND".  ON  DESIGN  * 

C * VARIABLES  * 

C * ♦ 

C * SUBSTRUCTURE  FORMULATION  IS  USED  * 

C * STIFFNESS  MATRIX  Mt  rHOD  IS  USED  TU  ANALYZE  THE  STRUCTURE  * 

C * VARIOUS  MEMBER  OF  I HE  STRUCUCTURE  MAY  BE  GROUPED  TOGATHER  * 

C * FINITE  CLEMENT  LIBRARY  INCLUDES  TRUSS,  CST,  AND  SSP/SPSP  ELEMENTS* 

C * ALL  CALCULATIONS  Aiu  IN  OOUBLE  PRECISION  * 

C ************ *********  ********************************* ************** 

C * UPDATED  I JUNE  197B)':GUYEN  THAI  DUC  * 

C * JNOER  SUPERVISION  OF  PROF.  J.  S.  ARURA  * 

C * OPTION  OF  USING  SULGPACE  ITERATION  TO  SOLVE  EIGEN  PROBLEM  * 

C * VIOLATIONS  IN  FRED.  f.  DISPL.  OF  EACH  DAMAGED  CONDITION  ARE  * 

C * INCLUDEO  IN  Till  VIOLATED  CONSTRAINT  SET  * 

C ******************************************************************** 
C FORMATS-RCAO  STATEMENTS 

A FORMAT! 8F10. 6) 

5 FORMAT!  BF  10. 3) 

8 FORMAT  ( *>816.7) 

')  FORMAT!  I 5,  3F  10.  A,  6!  •> ) 

10  FORMAT! 1615) 

1 1 FORMAT! 7F10. 4,F 10.^ I 

C FORMAT-WRITE  STATEMENTS 

12  FORMAT!  )X, 'SOME  ER'iiR  IN  K.C  * ) 

17  FORMAT! ////30X, • ♦ ♦ DEPENDENT  STIFFNESS  MATRIX  ♦♦  N-*,15,*,  K**,I 

*2 , ' , 1 1)0= ' , 12) 

24  FORMA T ( * 1 ' , ' DATA  COMMON  TO  ALL  SUBSTRUCTURES  ') 

25  TORMATI //IX,  • SN  STRUCTURE  NUMBER  = • , l 4/  IX  , ' NSU  NO.  OF  SUBSTRUCTU 
IRES  = • , IA/IX, *BNC  OVERALL  BOUND.  DLGREES  OF  FREEDOM  * • , 1 4/ 1 X , ' NBW 
2 OVERALL  BOUND.  UP^ER  BAND  WIDTH  = • , l 4/ l X , • NLC  NO.  OF  LOADING  C 
BOND I T I ON  S =• , I4/IX, *NPH  TOTAL  NO.  OF  EXPECTED  CONST*.  VIOLATIONS 

4 = • » T A/ lx,*  NSD  NO.  OF  STRESS  t DISPL.  CONSTR.  VIOLATIONS  =',IA) 

26  FORMA  T ( / l X , 'IBUE=0  WILL  NOT  CONSIDER  BUCKLING  CONSTR  =•,  I5/1X, 

1 'II)IS  = 0 WILL  NOT  CONSIDER  DISPL  CONSTR  = *,  15/1X,  *IDV*0  WILL  NO 
2 T CONSIDER  FRED.  CONSTR  = ',  15/1X,  'IPD.EQ.O  WILL  NOT  PRINT  DISPL 
MATRIX  AT  EACH  CYCl '"  = * , I 5 / l X , • I PS=0  WILL  NOT  PRINT  FORCE  AND  DISPL 
A MATRIX  AT  EACH  C YC LE * • » I 5,  • */lX,  »IFS  = NO  OF  TIMES  STRESS 

♦ RATIO  DESIGN  IS  R ! QUI RE  D = ',  15/lX,  • I TF  = NUMBER  OF  ELEMENT 
OTYPE  = ' * IS) 

27  FORMAT! //IX,  • IL  I M='  [MIT  DN  DESIGN  CYCLES  =•,  I5/1X,  MPM=SUBSP  MET 

1 HOD  I TRN  LIMIT  = ',  I5/1X,  • I TRS=NO  ,;F  TIMES  STEP  SIZE  REDUCTD  *', 

2 I 5/  1 X , ' L N S V = N 0 J.  TIMES  VARIATION  IN  COST  FUN.  REMAIN  WITHIN  SPE 

3CIFI  CD  L IMI  TS  = • , T ) 

28  FORMAT! //IX,  , • DF  IS  REO  CHANGE 

1 I N COST  FUN  =‘,tlS.5/iX,  ' R I T IS  Rl  Q CHANGE  IN  COST  FUN  WHEN  ALL 
2C0NSTRS  ARE  SATISFIED  AND  ILIM.GT.l  *•  ,E15.*>/1X,  *RIN  IS  REU  CHAN 
3GE  IN  COST  FUN  WHEN  ALL  CONSTR  SATISFIED  INITIALLY  =*,E15.5/1X, 
A'RL  = SPEC  IFIED  VAR'*, TUN  IN  COST  FUN  FOR  REDUCING  STEP  SIZE  =',E15. 
55/ 1 X , 'LP  IS  LPCILON  FOR  CONSTRAINT  CHECKS  =',E15.5) 

2'»  FORMAT! //IX, 'ERROR  CRlT£RIOiM-'/lX,'tRRl  EC  FOR  CONVERGENCE  OF  EVE 
1C.  = • ,C 15.5/ IX, *ER<2  EC  FOR  TOLERANCE  IN  DELTA  Bl  ,ORM  AT  OPT.  *• 
2, C 1 5 . 5/ 1 X, » ERR3  C.  FUR  TOLERANCE  IN  CONSTRS.  AT  OPT.  =',EL5.5/1X, 
3*  LRR4  EC  FOR  TOLLRDNCE  IN  CUST  FUNCTION  U OPT . = • , E 1 5 . 5/ 1 X , • ERRS 
A EC  FOR  CHECKING  »!  R3  ELEMENTS  IN  GAUSS.  ELI MN.  =',E15.5) 

30  FORMAT! • 0* , • ♦♦*  DATA  FOR  INDIVIDUAL  SUBSTRUCTURES  K=*',I2) 

31  FORMAT!/*  * , 2X,  '***  SKIP  DATA  28  THi<U  31  AS  N0AM=0*) 

32  FORMAT!/'  *,  |3,'  « REDUC ( I 0) , I 8 = LS,LE) * ) 

33  FORMAT! / *0*,2X, • INVERSE  OF  WEIGHTING  MATRIX.  NORMA!  IZED  WITH  MAX. 

♦ ELEMENT.*) 

34  FORMAT!//'  ***  U'.'-AGCD  CONDITION  iU.  I = • , 1 2 , • ♦♦♦•) 

I I I 


™IS  rM>  IS  bbst  Qtuwn ruetuM* 


35  FORMAT  ! / • 1 ' » • STRLSS  AND  DISPLACEMENT  V I OL  A T I UNS  • / • SIZE  MEM/NC  K 
<=  III  SR  LDC  IV  L„  BUC  l.O-XL'/) 

ih  FOPMATl  I A, 16, 71  A ,T I 2.5) 

37  FORMAT!  I X, l 3,4X , 'El  .ENVALUC  = • , Cl  6. 7/ 9 X , ' NATUR AL  FREQUENCY*' 

*,L1 6. 7/8X, 'EIGENVECTOR' /I A( I5.CI2.A  ) ) ) 
i< ) FORMAT!  • ****FREQUi_“lC  Y IS  NOT  VIOLATED  ****') 

AJ  FORMAT! • **♦*  FINAL  RESPONSES  ****') 

A 5 FORMAT!  /IX,  'STEP  SIZE  =',E)5.7,15) 

A 6 FORMAT! 213, 2X,E 13.  >, BI 5/1 20X  ,81 5 ) ) 

5/  FORMAT! //IX,  'SJllSTlCTURt  NO.  *,215) 

A8  FORMAT!  / IX,  • VALUE  OF  COST  FLINT  I ON  =',E16.7,'  TRUSS*'  ,EI6.7,  ' CST=' 
*,E16.7, ' SSP='» EI6. 7//1X,  'VALUES  OF  DESIGN 

1 VAR  I ABL  t S' / IX,  'GR.in. • ,AX, • AREA' ,1  LX, 'MEMBER  NUMBERS') 

AO  FORMAT!  • l * , 'ITERATION  NO  =',AIA) 

50  FORMAT! //IX, 'COST  FUNCTION  H I STOR Y • / 1 A ( I 5 , C 1 2 . A ) ) ) 

51  FORMAT!  • I'////30X, •**  INPUT  DATA  ERRUR  **') 

52  FORMAT ( / IX, I 5, ' FULLY  STRESSED  DESIGN  DESIRED  INITIALLY,  NO.  OF 
1 TIMES  =•  , IA) 

55  FORMAT!  1 A, 2X , ' BL  VIOLATED,  D V= • , I 3 , 2E 1 5 . 5 ) 

55  FORMAT!  I A, 2X, ' RU  VIOLATED,  D V = ' , I 3 , 2E 1 5 . 5 ) 

56  FORMAT! /IX, • TOTAL  NO  OF  CONSTRAINTS  VIOLATED  =',I3) 

5B  FORMAT!  /IX, 'NO  VIOLATION  AT  THIS  ITERATION') 

59  FORMAT!  /IX,  'NO  CONSTRAINT  VIOLATED  INITIALLY  NO  OF  TIMES=',I5) 

60  FORMAT!  • •,<****  $K I P DATA  17  THRU  20  AS  NCI=0  FOR  K = • , 1 2 I 

61  FORMAT!///'  IDC  = ',r2,',  K=',I2,',  III  = ',I2,',  I T Y ( I II)  = • , I 2 , • SKI 
*P  DATA  21  THRU  23  IT  I TY ( III  ) =0 . ' ) 


62 

rJRMAT! / • 
#PSP  ' ) 

' , 

l ),  ' 

IUNI  T,  NN  , NSU,  NDAM,  NLC  , NV  , NCC  , BNC,  NBW  , NPH 

, NSD,  IS 

;,3 

FORMAT! / • 

' , 

I 3,  • 

II  S,IDV,IFR,IBUK, IDIS, IBDIS, IPS, IPD, IPC' ) 

65 

FORMAT! / ' 
1 , 1 WMM • ) 

' , 

I 1,  ' 

I L I M , I TRS.LNSV,  LCON, ICONT, { ITYI I ) » I 

= 1, ITE  ) 

65 

FORMAT! /• 

' , 

13,' 

DF»RI T ,RIN*RL*EP*STPl ,STP2' ) 

66 

FORMA  r 1 / • 

' , 

f U ' 

< F ACC ( I),I=I,ITE),RF,CONL') 

6 7 

FORMAT! / • 

' , 

13,' 

RRF ( I ) , RDL I M ( I ) ,RSL( I ) ,RSU(I ) , RLOAD ( I ) • 

) 

68 

FORMAT!  / • 

' , 

13,  ' 

CRRl ,ERR2 ,ERR3,ERRR, ERRS .FACTOR* 1 

69 

FORMAT! /' 

' , 

13,  ' 

IDL 13(1), 1=1, BNC ) ' ) 

70 

TORN  ATI / • 
* FOR  ALL 

' , 

NLC 

311,' 
.'  1 

iLJ  - (NJLII ) ,1=1 ,NLJ)  - J, (PB(N,L),N=1, 

NN) 

71  FORMAT!  1 IX,  *Z!(  I , 1)  I S • , 1 5X  , ' ZZ  1 1 , 2 > I S ' /6X  , • TR  ANL  A'- BDA*  DEL  T ABl  • , 5 
IX, 'TRANLAMBDA+DELTxr2'/lAX, • =0 • , 1 9X  , • =DE LPH  I • ) 

72  FORMAT! IA,2X,E16.7, 7X,E16.7) 

71  FORMAT!  / IX , • ( CHAN  SC  IN  COST  FUNCTION  = • , E l 5 . 5// 1 X, • DB(  I ) *DB ( I ) 
1=',E15.5) 

75  FORMAT! / IX, ' TI2  ) IS  TR ANDELTABl *DEL T AB2= • , E 1 6. 7// 1 X , • T 1 3 ) IS  TRANL 
IJ*DELTAB1  = ' , E 16. 7) 

75  F0RMAM/1X, 'DELTA  II  NORM  H I STORY  • / I 4J I 5 , El  2.4 ) ) ) 

76  FORMAT! / IX, 'DEL TA  0,.  NORM  H I STOR Y • / ( A ( I 5 ,E 1 2 . A ) ) ) 

77  FORMAT!  /IX, 'NUMBER  OF  TIMES  COST  VAR  I AT  1 ON* / IX, • REMAINS  WITHIN  SP 
lECIFICD  LIMITS*', I 5) 

7B  FORMAT! //IX, 'NO  OF  TIMES  STEP  SIZE  REDUCED* ' , 1 3/ 1 X, • NEW  STEP  SIZE 
1*',E15. Z/IX, 'REQ  CHANCE  IN  COST  FUNCTION  DF=',E15.7) 

79  FORMAT!  • l ', 'CONVERGENCE  CRITERIA  HAS  BEEN  SATISFIED') 

81  FORMAT!  IX, 'NV  0ELTAB1  DEL  TAD2  DELTAS') 

82  FORMAT!  I5.3E14.5) 


83 

FORMAT! / • 

' , 

13,  • 

LINK') 

85 

FORMAT! / ' 

13,' 

LINLS(I.1I,LINLSII,2)  - SKIP  IF  l INK-0*  I 

8 5 

FORMAT! /• 
♦IK)'  ) 

I 3,' 

NJIK)  ,NBJ  IK)  ,NCB(K)  .NIC!  K)  , Ni'Wl  ( K ) , NBW2  ( K ) , NBW  3 

36 

FflRMAT!  / ' 

13,  ' 

! NZ ( I , K) , I *1 ,N8 ) •) 

87 

FORMAT! / • 

13,' 

JN,X!J,K),Y(J,K),Z(J,K),!NO(I),I=l,NN)  - FOR  AL 

*1  N J K • ) 


I 

1 


c 

c 

c 


88 

FORMAT! /• 

',  13,' 

(OHM!  I ,K)  , I “l  ,NLI  ( • ) 

89 

FORMAT! / • 

',311,* 

NLJ  - !NJL!I ) ,1=1 ,NLJ)  - J»(PI!N,L,K),N=1,NN)  - 

♦ — FOR  ALL 

NLC.  SKIP  19  ANO  20  IF  NLJ=0'» 

00 

FORMAT! / • 

• , 13,’ 

NM(KK)  ,NG!KK) ,NW(KK)  ,MCB(KK) ,MEF( KK ) • ) 

91 

FORMAT! / • 

•,  13,  ' 

( B ( I , KK ) , I = I , NGK  ) ' ) 

92 

FORMAT! / • 

',  13,* 

! I CRT ( 1 , KK ) ,1=1  , NGK ) • ) 

9 3 

FORMAT! / • 

• , 13,' 

J , L , ( MN(N*M,KK)  ,F.  = 1 ,L>  • ) 

9 A 

FORMAT! / • 

• , M,' 

CVEC  FUR') 

96 

FORMAT! / • . 

',  13,' 

wL ( I ,<K) ,BU! I ,KK) ,ALP( I ,KK) ,SL! I ,KK) ,SU!  I ,KK ),R 

*0!  1 ) ,XNUU( 

I , KK  I »E  ( I 

, KK  ) ' ) 

96 

FORMAT!  /• 

' , 13,' 

M8, JP, JO, JR*  ) 

) 7 

FORMAT! / • 

' , I 3 , • 

K = ' , 12,  ' , K I IDAMIK, I ) = • , 12) 

98 

FORMAT! / • 

',  13,  ' 

N - SKIP  DATA  30  AND  31  IF  N=0') 

99 

FORMAT! / • 

I 3 , • 

1 NDM  < I 8) , I8  = LS,LC>  • ) 

....  A-DATA  COMMON  TO  ALL 

0 I S = f 3.  IAIS927(**2 
CCC=1.0 

1 PM  - 0 

I CHtK  =0 

GG“386A00.0 

WRITEI6.2A) 


SUBSTRUCTURES. 


NUMB  ER  “ 1 


WRITE(6,62)  NUMBER 
NUMBER=NIJMBER*1 
I T C = 3 

l 0001  READ  IS, 10)  NUN l T , NN , NSU, NDAM , NLC , NV , NCC , BNC , NBW , NPH, NSD , I SPSP 

WR I T C ( 6, 10)  NUNi  T,NN,  NSU, NDAM, NLC, NV, NCC, BNC, NBW, NPH, NSD,  l SPSP 
I F( NUN  I T .EQ. 1 ) GC  = 1 .0 


SN=2*NN 


NN1 =NN- 1 

WRITC<6,63)  NUMBER 
NUMBER “NUMBER ♦l 

10002  RC AD! S , 10,ERK  = 777)  !FS,IOV,IFK, I BUK , I D I S , T BD I S , I PS , I PD, I PC, JUSTW, 
21  AUTO 

WR ITE( 6,  10)  IF  5, 10V, IFR, IBUK, IDl S, IBOIS, IPS, l PD , l PC, JUSTW, 

2 I AUTO 

WR  I T C I 6 , 6A  ) NUMBER 
NUMBER  = NUMBERM 

10003  READIS, 10, ERR=777)  I L I M,  I TR  S ,LNS  V,  LCON,ICO''T, 

*(  ITVI  I ) , I«l,  ITC  I , 1 1«  MM 

WR l T E ( 6 , 10)  ILIM.I TRS.LNSV,  LCON.ICONT, 

♦ IITY(I),  1 = 1, I TE  ),IWMM 
WR I T E I 6, 6S ) NUMBER 
NUMBER “NUMBER* l 

100 OA  READIS, l 1,ERR“777)  DF , R I T ,RI N,KL ,E P , STP1 , STP2 

WRITE! 6j  11 ) DF, <IT,RIN,RL,EP,STPl,STP2 
WRITL'16,66)  NUMBER 
NUMBER* NUMBER* 1 
C 

C FACC(l)  WILL  BE  US  0 LATER  TO  GENERATE  WEIGHTING  MATRIX  W 

r- 

10006  READ!  6,  1 1 ) ( FACC  ! I » , I *1 , I TE  ) ,RF  ,CO.NL 

WRIT  El  6,  1 1 > I FACC!  I ) , I *1, I TO ,RF,CONL 
WR I TE ! 6, 68 ) NUMBER 
NUMBER=NUMBER*1 

10006  RCAD! 6, 8,ERR*77  7)  . RR  1 , E RR2 , ERR  3 ,ERRA  . ERRS 
WRITE! 6, 8)  _RRl,ERR2,ERR3,ERRA,ERR6 

WR I T E ! 6 , 69 ) NUMBER 
NUMBER“NUMBER*l 


I 

I 


1 


1 


113 


THIS  PACE  IS  BEST  QUALITY  FRACTICABa 
mm  (X>ir  t yURklSHED  TO  DDQ  


1000?  READ!*),  !>.ERR  = 77  7 ) ( OL  I B ( 1 I , I = 1 * BNC  1 
WRITClf.  . II)  ( HL I B ( 1 I * I = 1 * BNC  ) 

DO  lOfa  1 = 1,  BNC 
1 ?r>  Jl  IK(  1 ) = 1.D0/DL  IB!  1 ) 

L =9 
1 = 10 

W R I T E ( fa , 70)  NUTER,!  , l 
NUMBER=NUMBER*J 

: BOUNDARY  LOAD , HOWC VL  R SHOULD  CONSIDLR  JUST  'ACTIVE*!  DOF  ONIY 


0011  1 L = l,NLC 
l)H  109  1 = 1,  BNC 
l'„9  PC!  I ,L  ) =0.00 
I000E  READ!  •>,  10,ER1R  = 777) 

WRITEIb,  10) 

IF(NLJ.LO.O)  CO  rn 
10009  READ! i, 1 0,ERR=777 I 
W P.  I T E ( fa , 10) 

DO  1 1 0 I = 1 ,NL  J 
LE  = NNt!NJL  ( I ) 

I S = L E-NN  1 

OOIC  READ! fa, 9, ERR =77  7)  J,(PB(N,L) , N = L S » L _ ) 

110  WRITE!  fa, 9)  J,  ( E»0  ( N,L  ) ,N  = LS,LL  ) 

111  CONTINUE 

WR I TC ! fa  » 83 ) NUMBER 
number=number+i 

0011  READ! fa, 10,ERR=777)L INK 
WR  I T E ( fa  * 1 0 ) LINK 
WR  l T E ! fa  , 84  ) NUMBER 
NUMBER3  NUMBER*- 1 
IF(L  INK.EQ.O)  GO  TO  HI 
DO  130  1 = 1, LINK 

001?  READ!fa,  10,ERR  = 777>  L I NLS!  I ,1  ) , L I NLG  1 1 ,2) 
130  WR l T C ( fa , 10 ) L INLGI 1 , 1 ) .LINLGI I ,2) 

1)1  L IN=C 

LO  I3t-  I = l , I TC 
l 3?  NVVt  l ) = 0 

....  B-DATA  FOR  INDIVIDUAL  SUBSTRUCTURES 

MM  = 0 
LQ=0 
<K  = 0 
I R = 0 
I 9=0 
J8=0 
MR  =0 

BtGIN  FUR  BIG  LOOP  7777 


:LJ 
1L  J 
111 

( M J L ( I I , 1 = l » NL  J ) 
(NJL( 1 ) , 1=1, NLJ) 


i 


DJ  7777  K= 1 , NSU 
KIIDAMIK,  l)  = l 
WRITE  I 6, 30)  K 
NL'MBER=  1 3 
WRITE! fa, 84)  NUMBER 
NUMBER=NUMBER*1 

OJ l 3 READ! 5,  10)  N J ( K ) , NO  J ( K ) , NCR  ! K) , NIC ( K ) , NBWl ( K ) , NEW? ( K ) , NBW3 ! K ) 
WRITE! fa,  10)  NJIK),  IF J ! K ) , NCB ! K ) ,NI C ( K ) , NE Wl I K ) , NOW? ! K ) , NBW 3 ! K ) 

CALI  VARI(K) 

HU 


WR  I T E I fa , 86  ) NUMBER 
NUMB  ER  = NUMBER + 1 


C 

C 

C 

10014 


10015 

140 


100  lfa 


141 


150 

10017 


C 

C 

C 

100  If! 


100  17 
1 54 
155 


156 

C 

c 

c 

c 

157 


160 

C 

c 

c 


TO  CONVERT  BOUNDARY  NODES  *rROM  LOCAL  TO  OVER  ALI  NUMBERING  SYSTEM 

READ! 5, 10*ERR=777)  ( NZ I I , K ) , I = l , NB > 

WR ITE I 6,  10)  (NZ(I,K),I=1,NB) 

WR  I T b I 6 » 07  ) NUMBER 
SUM B ER= NUMB ER*1 
DO  140  J = 1 * N JK 
L E=NN* J 
LS=LE-NN  l 

RC ADI  5, 9, ERR  = 77 7)  JJ , XI J , K ) , Y I J , K I , Z ( J , K I , I AO ( (I , I =1  S , LE » 

WRITE! fa, 91  J\,X(J,K),Y(J,K),Z(J,K),(ND(l),I=LS,LE) 

IFINCI.EQ.O)  on  TO  156 
WR  l T E I fa  * 88  ) NUMBER 
NUMBtR=NUMBER*l 

RE ADI  5, 1 1, ERR  = 777)  I DLl Ml  I ,K ) , l =1  ,NCI  ) 

WR  l T C I fa  » 11)  I DL I Ml  I » K ) 

DO  141  1=1, NCI 
DL I M I I,K  ) = 1 . DO/UL I M I I , K ) 

L = 18 

I = 19 

WR I TE I fa  » 8 7 ) NUMBER,!., I 
NUMBER3 NUMBER* 3 
DO  155  L = l , NLC 
00150  1 = 1, NCI 
PI  I I ,L,K  )=0.D0 
READI5, 10,ERR=777)  NLJ 
WRITEIfa, 10)  NLJ 

IFINLJ.EO.O)  00  TO  155 

INTERIOR  LOAD,  I DDF  WILL  BE  SUBTRACTED  BY  NCBIKI  TO  SAVE  MEMORY 

READ  I i, 10,ERR  = 77  7 ) INJL(I),I=1,NLJ) 

WRITEIfa,  101  I NJL  I I ) * I = 1 , NL  J ) 

DD  154  1=1, NLJ 
LE=NN*NJL(  Il-Nl 
LS=LE-NN1 

READ! 5, 9, ERR =777)  I , (PI (N,L ,K) ,N=LS,LC) 

WRITE  I fa, 9)  J, (PI  (N,L,K) ,N=LS,LE) 

CUNT  INUE 
SO  TO  157 
WRITEIfa, 60)  K 

TO  GENERATE  B DOE  IN  OVER  7.LL  SYSTEM, 

HOWEVER  SHOULD  CONSIDER  JUST  ‘ACTIVCR  OOF  ONLY 

DO  160  1=1, NB 
L =NZ I I , K ) 

L I = NN* I L-  l ) 

I I = NN* I I - l ) 

DO  160  J = l , NN 
L 1*L  1*1 

11  = 1 l*  1 

NZC I 1 1 , K ) =L l 

CONTINUE 

CUMULATIVE  RESTRAINT  LIST 
NJ J*NJK *NN 

115 


V » * f » * 


i 


a 


I =0 

noif>i  j = i,njj 

I =ND I J > ♦ I 
161  MD(J)=ND(J)*l 

in  [ .ECU MCI  GO  TP  162 
wkiti  (6, 12) 

JO  TP  22? 

....  DATA  FOR  INDIVIDUAL  FINITE  ELEMENTS. 


THIS  PAGE  IS  BEST  QUALITY  FRACTICABJ3 
FROM  COP!  niRtLLSHED  TOJQDQ  . 


16?  DO  7777  111=1,1 TL 
NUMBER =20 

inc  = o 

WR ITEI 6, 6l)  IDC , K , I I I , I TYI  I I I ) 

IF!  ITYI  III  l.EQ.O)  '.U  TO  7777 
KK  = KKi  l 

wR  I T E ( 6 , 90  ) NUMBER 
NUMBtR=NUKBER*l 

L 00?  0 READ  IS,  10, ERR  = 7 77)  NM(KK)  , NG ( KK ) , NW ( KK » , MEB ( KK 1 , MEF  ( KK ) 

WRlTt <6, 10)  NM(KK) ,NG1KK) ,NW1KK) ,MEBIKK) ,MEF(KK) 

NGK=NGI  KK ) 

«A  = 0 
N =0 

WRITE!  7.,, 93)  NUMBER 
NUM»ER=NUMBER+1 
uUIRO  1=1, NGK 

10021  READI  •>,  10,ERR  = 7 7 7)  J , L , I MN  ( N+M , KK  ) , M=  l , L ) 

WRITE  I 6,  10)  J*L, l M N I N + M , KK ) , M=  1 , L ) 

DO  179  L L = 1 , L 
M A = M A ♦ 1 
M=MN I M A , KK ) 
l 79  IGREIM,  I II  ) = I 
N = N + l 

l BO  NOM(  I , KK  )=L 
Mn=MEP I KK  ) 

M7  = MEF( KK  ) 

WRITE (6, 95)  NUMBER 
NUMBER=NUMRER+1 
DO  161  1=1, NGK 

1002?  READ  I 5, 1 l,ERR  = 777)  RL( I ,KK ) , DU« I , KK ) , ALP( I ,KK ) , SL I I , KK ) , 

ISUI  I ,KK ) ,RO(l),  XNUUI I , KK ) ,E I I , KK ) 

WRITE  (b,  111  BL(I,KK),CU(I'fKK)  ,<ALP(  I,KK),SL(I,KK), 

ISUI I ,KK ) ,R0( I ) , XNUUI I ,KK) , E ( I , KK ) 

SL( I,KK)=l.000/SL( I ,KK) 

IBl  SUI I , KK ) =- l • ODO /SUI 1 »KK) 

WRIT. (6, 96)  NUMBER 
NUM BER= NUMBER ♦ 1 

l JO? 3 GALL  El  ESTFIM5,  III,  1 B , K , < K , M6 , M7 , l 9 , l SPSP ,NN , J8 , M8 , l DV , GGI 
DO  193  I«M6,M7 
l GR  = I G«  E ( 1 , 1 1 1 I 

19  3 RR ( I , I I I ) =R0 ( I GR  ) *L  LL ( I , I 1 1 ) 

I F ( I BUK .EO.O.OR.III . G T . I ) GO  TU  7777 
DO  IOA  1=1, NGK 
bl)C  = ALP  I I,KK)*C|  I,KK)*PIS 
1 9<,  L(  1 , KK  ) = l.DO/RUC 

7777  CONTINUE  *♦** 


LND  PF  f IG  LOOP  7777 


K 1 1 D AM  C K, IOC  ) .CQ.O 
Kt IDAMIK.IOC ).NC.O 


NOT  DAMAGED 
DAMAGED 


C 

C 

C 


C 

c 

c 


103  24 


1002s 


10026 


1002? 


10328 


200 

201 

202 

C 

C 

c 


I PDAM=ND AM+ l 
RRF ( 1 ) = 1 . 0 
RDl IM(  I 1=1.0 
RSLI 11-1.0 
R SU  ( 1 ) = 1 .0 
RIO  ADI 11=1.0 
NtGVI  l 1 = 0 
NDOFI 1 ) =NCC 
L S=  1 
LE  = 3 
I DC=  3 

IF(NDAM.EU.O)  GO  Tj  2C1 


& 


INPUT  DAMAGED  DISRUPTION 


DU  2 00  I DC  = l » ND  AM 

WRITE(6,34)  in: 

I = l DC ♦ l 
NEGV  I f 1=0 
NUMBER  = 24 

MRITr<6,67)  NUMBER 

R F AD  1 8 , ll*GrtR  = 2T7)  KRFI  I ) * R D L I M ( 1 ) , K S L I I ) » R S U ( I ) , RLCAD  ( I ) 
MR l T E I 6,  11)  K R F ( I ) » R D L 1 M ( I ) , R S L ( I I , R S U ( I ) ,RLUAD(  l ) 

KK  =0 

or  200  K = 1 f NSU 
NUMRER*2S 

READ!  ‘it  10)  K.  l I DAM  IK  , I ) 

MR  I TT ( 6, 071  NUMB FR ,K ,KI I 3AM( K,  N 

do  200  i n = i,rrc 

NUMB  ER  = 2 6 

i r ( i rvi  i in .eo. 3)  ju  to  200 

KK  = KK  f l 

MR  I TF ( 6 , 98 ) NUMBER 
NUMBER  = NUMBERU 
R E A 0 1 4 » 10»ERR=777)  . 

WRITEI6.10)  J 

NBDAMIKK, IDC  l=N 
NEGV  I I ) =NEGV  ( I I +,N 
IF(N.EU.O)  GO  TO  20) 

LE  = L E + N 

WRITE(6,09>  NUMBER  . .. 

NUMBER  = NI.IMBER  + 1 

RE  ADI  *j*  1 0 * ERR  = 7 7 7)  INDMI  I 8),I8  = LS,LL» 

MRITEIo,  101  (N0MII8) »I8=LS»LE) 

MR  I T F I 6 » 32 ) NUMBER 

READ! S, 5, ERR =77 7)  I REDUC  l l 8 ) , I B = LS,  l.E  ) 

WRITE  I 6,6)  (REDUC I I8),IU=LS,LE> 

LS  = L S*N 
CONTINUE 
GO  TO  2C2 
WRITE!?),  31) 

I F ( IDV.EU.O  .AND.  JUSTW.EO.OIGO  TO  204 
I F ( I AUTO  .EQ.O  )GD  T ' 864 


AUTOMATIC  GENERATION  OF  INPUT  E1GF.N  VECTORIFOR  SUB • SUBSP  OPTION) 


KU=0 

DO  8 6‘>  I TWO*  1,2 


i 

A 

I 

' DO  8b6  J = l * NCC 

KU=KU*  1 

IFIKU.EQ.ITWOIXCIGI  J,  ITW3)=l.D0 
IFIKU.NL.ITWOIXE I G( J, I TWD ) =0.00 

8 66  continue 

<U  = 0 

I 3 66  CONTINUE 

? GO  TO  204 

t „ DR  USER  HAS  Tn  SUPPLY  IN^UT  E'VIFOR  CUB.  SU8SP  OPTION) 

R 6 4 NUMBCR  = 2)02) 

HR  I T L ( 6, 94  (NUMBER 
011  8 00  l TW(1  = 1*2 

->902^  READ!  S,  8,ERR=777)  KZ  ISU,  I TWO)  , J = 1 , NCC) 

ROT  8 R I T T I 6 , 8 ) ( <L  I 3 ( J,  I TWO)  , J = 1 ,NCC) 

20**  KK  = 0 

00  210  K.  = 1 * N s u 

00  210  III  = 1 , I T E 

1 F ( ! T Y C I II  I. EC. 01  ilj  TO  210 
KK=KK ♦ 1 
MSK=NGl KK  > 

NUMBER3  TO 
HR l TE  I b » 91 ) NUMBER 

l 00  TO  RCADI  5,  4,ERR=777)  ( I)  { I , KK  ) , I = 1 , NGK  ) 

NUMBER=NUMBER*1 

8RITEI6,  4)  IBII.KKI ,1=1, NGK) 

RR I T t ( 0 » 92  I NUMBER 

lOOTl  RCADI 5, 10,ERR=777)  I I 3R T I I , KK ) , I = 1 , NGK ) 

WKITEIb,  10  I I I GRT 1 1 » KK 1 , I =1 * NGK ) 

I 2 SMALL  LOOPS  207  I.  208  TO  GENERATE  DV  = FOR  COMPLETE  STRUCTURE 

I STORED  IN  IGRTI-,-) , ALSO  I GRC ( - , - ) CONTA I NS  CROUPE  3 

; IN  SUBSTRUCTURE  K.uLFMENT  TYPE  III 

DO  201  1=1, NGK 
I F ( IGRTI  1 1 KK  ) ) 206,207,205 
2 0b  NVV 1 III  I =NVV ( I I I ) ♦ 1 
fCRTI  I , KK ) =NVV 1 I 1 1 ) 

GO  TO  207 

206  L IN  = L IN*  1 
LLL  = L INLGIL IN, 1 ) 

NGK=L INLGILIN.2  ) 

IGRTI  I , KK ) = I GR  T ( N3R , LLL  ) 

207  CONTINUE 
210  CONTINUE 

NA(  1 I = N V V I l ) 

N A ( 2 I = NVV ( I 1 *NV  V ( 2 1 
KK  = 0 

DO  2 08  K =1 ,NSU 
Dll  2 08  I 1 1*1,  I TE 
I F ( ITYI  I III. EO. OlGl  TO  208 
KK  =KK ♦ 1 

IF!  I II.E0.11G0  TO  208 
NGK  =N3(  KK  » 

00  2 09  1 = 1,  NGK 

IFI  IGR1  I I,KK  l.EO.OIGO  TD  209 
IGRTI I, KK1* IGRTI I,KK)*NAI II 1-1) 

204  CONTINUE 
20»>  CONTINUL 


r>  o o o r.  o o nn 


CEGIN  TO  GENERA  1 E iCIGHTING  MATRIX 


00  211  1=1*  NV 
2 11  WM  ( I 1=0.000 

KK  =0 

DO  220  K = l*NSU 
DO  220  I 1 1 = 1 , I TE 

1 F ( ITYI  I II  l.EO.O)  GO  TO  220 
KK  = KK  ♦ L 

M f i = M E 1 KK) 

N7*MEF(KK) 

DO  21  1 I = M6  * M 7 
IMIII.IU.H  X ( I , 1 1 =H  ( I 1 
M V = I GK  T ( IGRCI I, III) * KK ) 
IF(MV.EU.O)  GO  TO  219 
DO ( MV ) = F ACC ( III  ) 
WM(MV1=WM(MV)*RK(  I,  M I ) 

219  CONTINUE 

220  CONTINUE 

DO  221  I = 1 * N V 
AXL=00( I ( 

001  I » = W M ( [ ) 

221  WM  ( J ) = WM ( I ) *AXL 
X X = W M ( 1 ) 

DO  2 30  I =2  * N V 
I F ( XX. Gt .WM( 1)1  GO  TO  230 
XX=WM ( [ 1 

230  CONTINUE 

DU  2 31  I = l , N V 

231  WM  ( I ) =X  X / WM ( I ) 


THIS  P*®® 
yBOttC^ 


jUWiiSHEO  tO  DOC  -- 


....  XM(I  I STORES  INVERSE  OF  WEIGHTING  MATRIX.  NORMAL  I Z EO  WITH  MAX  ELE. 
WRIT  El  6, 33) 

WRIT  El  6,  10)  (NVVl I ) , 1=1,1 TC) 

WR  I T E 1 6 , B ) ( WM(  | ) y = V ,NV) 

IF!  IWMM.EQ.O)  jU  T :'  2 33 
DO  2 32  I = l * N V 
232  WM( I )=1 .000 
23)  SUML  =0.0 

WR I T E ( 6 * 8 ) ( WM ( I), I =l,NV) 

DU  2 34  1=1. NV 

234  SUML  =SUML-*-00  ( I I *WM(  I ) *001  I 1 
WR  I T fc  ( 6 * 24  ) 

WR l TE 1 6*  25 ) SN  * N SU*  BNC • NB W , NLC , NPH , NSD 
WR  I T E I h * 26  ) IDUK,  I D I S . I J V , I PD  , I PS , I F S , I TE 

WRITE16.27)  ILIM,  II’M,  I TRS.LNSV 
W'UTE<6,28)DF,RIT,RIN,RL,fcP 
WRITE (6, 29)  ERR  1, ERR  2, ERR  3, CRR4,  ERR  . 

INITIALIZE  COUNTER  , 

NTL  =0 
I TR  N *9 
I TR  = 0 
!CV  = 0 
NSV*0 

998  CONTINUE 

C 

C COST  FUNCTION  t STEP  SIZE 


Is  BEST  QUALITY  mcilCABLi 
FROM  COPY  i'DRHISEED  TO  DOC  . 


00  240  I = 1, I TF 
240  xcosti  I ) =0.0 
K =0 

00  242  KK= 1 * NSU 
DO  242  I I l = l » I TE 

1 F ! I T Y ( III  I.EO.O)  T3  242 

K = K*  1 

M 6 = M E B ( K ) 

M 7 = MEF ( K ) 

00  241  J=M6,M7 

1 = IGRC ! J » 1 1 1 ) 

24  1 XC0ST(  II  I J = XCOST(  I I l J «-B(  l ,K)*RR  < J,  l l l ) 

242  CONTINUE 
COST  =0.0 
on  2 4 S I =1 , I TE 

245  COST=COST*XCOST I I)*CCC 
STEP=( COST*DF)/(CCC*SUML) 

STEP=STEP*STf»2 

099  CONTINUE 
NTL=NTL+ 1 
FBI NTL  ) =COST 
DBININTL,  11=0.000 
Of'  I N ( N TL  * 2 ) = 0.000 

PRINTING  COST  FN.  HISTORY 

WR  I T t ! 6 , 49  ) NTL 
WR  l T F. ! 6 , 46 I STEP 

WRITE! 6,48)  CO  ST , ! XC3ST ( I ) , I = l , 3 ) 

IF! NTL .GT. IL IP)  GO  TO  22220 

PRINTING  CURRENT  A < E AS 

r 007  K =0 

03  2 46  1=1, NCC 

246  NDISP! I ) =0 

03  240  KK= 1 , NSU 

on  243  I 11  = 1, ITE 

IF!  I TY  ! Ill  ) .EO.O)  it’  TD  248 

K=K  ♦ l 

WR I T E ! 6 , 47 ) KK,  II  I 

A=C 

N = NG!K  ) 

DO  247  I = 1 , N 
NGV ( I , K ) =0 
J=NOM! I ,K) 

WRITE  16,46)  l.IGRTl I ,K) ,3!i ,K) , ( MN! MA*L , K ) , L= l , J ) 

24 7 MA=MA*J 
240  CONTINUE 

00  7008  NFVin  = l , I Pi  i AM 
TE  I ! NF  V 1 1) ) = 0 .00 

'000  TE ! NF V I G ) =0. 00 
SIZE=J 
L X =0 

1 NCR  =0 
NORE  S = 0 
11X8=0 

1 1X8=0 
|4X8«0 

l>3  2*»6  I * I » N V 

2 r>6  SS!  I ) *0.0 

I lit 


o n n on 


BEGIN  UF  BIG  LOOP  77788  FREU  ANAL  A CHECK  IF  FREQ  IS(ARt)  VICLATED 


DO  7 7788  IDC=»,  IPD'.w 
LDC= IDC- t 
WRlTFIft, 3AILOC 
DO  259  1=1. BNC 
DO  288  J = 1 » NBW 

258  C(  I. J ) =0.DC 
DO  259  L=1.NLC 

259  7R(  I ,L  )=P8(  I .L  )*RL:jAD(  IDC  » 

IFIIDV.CU.O  .AND.  J US  TW  . E U.  0 )GO  T(1  2550 
XRF=RF*RRF( IDC ) 

XRFF=( 6. 2831 8SA*XR,  1**2 
1012=0 

CALL  STIFFM(N»K»TDC,IIX8,C883»1C12) 

GO  TO  832 

883  WR  I T E(  7» » 19  IN i K. IDC 
GO  TO  222 

882  DC  832  1=1, BMC 
DO  8 32  J = l . NBW 
832  D(  I, J)=C(  I, J ) 

N =0 


,1* 

^0 


ft* 


<=0 

CALL  DECUPP (N»NBW,C\C»C88A) 

GO  TO  885 

88  A WR  I T E ( 6 » 19IN.K 
GO  TO  222 
385  CONTINUE 

DO  850  1=1, BNC 
DO  850  J = 1 , NBW 
550  C ( I » J >=D ( I , J I 

CALL  SUBSP(NCC.NBW,LCON,ERRl, I DC, I 3X0) 

FREO  = WS(  l) 

XL=DSQRT(FRECI/h.23 31853 

WRITE (6, 371NCC , FRED , XL , ( I , XE I G ( I , l ) , I = l , NCC ) 
IF( I DV.EO.O  .AND.  J US TW . N E . 0 ) GO  TO  2550 
YYM  = l.O-I FREQ/XRFF ) *EP 
IF(  I CHLK  .EO.l  I 10  T 2550 
IFIYYM.LT.O.OIGO  T.  25A 
L X = L X ♦ l 

TEI(LX)=(FRFQ-XRFF)/XRFF 
TEI  LXI=DABSI XRF-XLI /XRF 
KK=0 

DO  251  K = l , N SU 
DO  251  111=1,3 
I F ( ITY<  I in.EQ.O)  _.U  TO  251 
KK=KK« 1 
M6  = PEB( KK  ) 

M7=MFF( KK  ) 

DO  2 52  IA=MF»,M7 
252  3E(  I A , I I Il-PRUA,  II  I » 

251  CONTINUE 

I F I ICHEK .CO. I ) GO  T ' 2550 


TO  FIND  TRIPLE  PRODUCT  Y*M*Y,U3E  LATER  IN  SUB.  DEFREQ 


CALL  ME V EC (NN, NCC, IDC, I AX  8, l ) 

F[)EN«0.00 

DO  879  1=1, NCC 

8 79  FDEN=FDEN*XEIG(  I , 1 ) < Y XE I G ( I , 1 ) 


I 

/ 

rais  page  is  best  quality  practicabli 

FROM  CQirX  ftaitilSUBD  XODDQ  —■ 

CALL  DEFREO!  FRED , XR FF , NN, FOE N ,NCC  ) 
l)U  2S3  [=1,NV 
2s3  ETC!  I ♦ INCR  ) *-HJ  I ) 

I NCR  = I NCR *NV 

1 F ( ( IFR.GT.O).AND.l ITRN.EQ.O) ) GO  T 332 
GO  TO  2 S S l 
i 2N4  NORES=l 

WRITE! 6, 39) 

2 5 SO  14X8= I4X8+NEGV!  IDC) 

SSI  CONTINUE 

BEGIN  OF  BIG  LOOP 83  TO  FIND  OISPL.EL.  FORCE 

CONSTRAINT  CHECK  ON  STRESS, 1)1  SPL  .CONSTRUCT  CAP  L AMDA  MATRIX 
= I)ER  I VA  T I VE  OF  VIOLATED  CONSTRAINTS 


IFIIOV.rO.O  .AND.  J US TW . E 0 . 0 I GO  TO  320 

GO  TP  021 

320  CALL  STIFFMIN.K, IDC, IIX8, £260,0)  J 

GG  TO  270 

26J  WRlTfc(6,19)  N»K , IDC 
GO  TO  222 

27D  DU  302  1=1, BMC 
DO  302  J = 1 , NRW 
302  D(  I, J )=  C ( I , J ) 

V = 0 
< =0 

CALL  Dt  CUPPl N * NO  W , BNC , £303) 

GO  TCI  304 

30  3 WRITE (6,  19)  N, K 
GO  TO  222 
304  CONTINUE 

GO  TO  8 3 7 

321  CONTINUL 

UG  903  1=1, 3NC 
1)3  903  J = l , NBW 
90  3 01  I, J)=CI  I ,JI 

«>,37  CALL  ZCJZIEFI  IDC,  I PSP  , I P S , I PD  ) 

IF!  ICHEK.EU.  DGU  T'  77788 
DO  310  I=1,NLC 
310  NU<  I)  =0 

CALL  CONST! IOC,  I BUK  , l D l S,  I UD I S , NSD , t P , MV , I BU , I V , I PC, NTL  , I FS  , ISPSP, 
1 NOAM  ) 

I FI  NTL.GT.IFS)  GO  fO  311 

wRirrto.sz)  ntl.ifs 

ITRN=ITRN*1 
GO  TC  998 

ill  I F I IV.EU.OJGO  TO  77788 

CO  3 31  I = l , BNC 
DO  330  J*I»NGW 
3 30  D( I, J)=C(  I,J  ) 

OD  3 31  J = 1 , I V 
331  DSI I , J I =A2(t , J) 

CALL  SOL DUP! IV, NBW, PNC) 

WR  I T L ! 6 , 3 1 1 ) MUSH  , J),  I =1,8  NC)  ,J  = 1,IV) 


L X X = 1 


1.0 


CALL  GENC(NSD,NV,L<x,  IRU,  IUUK,  l V,  ID..  ) 
IFISI/E.GT.INSD-NDAP-l) >30  TO  77789 
77788  CONTINUE 

C 

C END  OF  l!  IG  l OOP  77788 

C 

777B9  CONTINUL 

IFUCHfcK.EQ.  I)  GO  Ti:  2 22 
IFILX.EO.O  .AND.  SI/E. CO. 0)30  TO  332 
IFISI/E.EO.O  .AND.  LX. NE. 0)30  TO  33318 
WRITE<6, 35) 

DO  318  I=l,SI/C 

WRITE! 6,  36) I , I INF  I 1 , J > , J = l,8)  ,DLPH( l > 

318  CONTINUE 
33317  DO  319  1=1, SIZE 
DO  319  J = l , NV 
31  ) UPBI  J,  I )=DPX( J*  I ) 

IFILX.EO.O  .AND.  SI /.E  .NE.  0)  30  TO  332 
C 

C ADD  COLUMNS  OF  FRE  . VIOLATIONS  IN  CAP  L AMD A MATRIX 

C ALSO  ADO  AMOUNT  OF  FREQ  VIOL  IN  DELPHI, THEN  UPDATED  SIZE 

C 

333  18  I NCR  =-NV 

DO  320  1=1, LX 
DLPHI  SIZE+-1  ) =TE  I ( I ) 

DLP ( S I Z E ♦ I ) = TE ( l ) 

I NCR  = I NCR+NV 
DO  320  J = 1 , N V 

320  DPR!  J.SIZE+I  )=ETC(  JMNCR) 

S!ZC=SIZE*LX 

r 

C....  CHECK  FOR  DESIGN  VARIABLE  CONSTRAINTS 

C 

332  I J = S l/F 
NDC  = ^ 

< = 0 

DO  3 34  I = l , NV 
Z< I, 1 )=0.0 

334  VV I I ) =0 . 0 
1)334  3 KK  = 1 ,NSU 
DO  34  3 I 1 1 = 1, IT E 

IF!  ITYl  III  ) . EO. 0 ) 30  TO  343 
WR I T E ( 6 , 4 7 ) KK,  I II 
K = K*  1 
LL  =0 

NGK  = N3( K ) 

DO  342  1=1, N3K 
L = NOM I I , K ) 

MA=IGRT(  i,k> 

IFIMA.EO.O)  GO  TO  341 

IF(SS(MA).E0.l.0.0R.VV(MA).6Q.1.0)  30  TO  339 
VVI MA  )=  l .0 

IFIBLI  I,K).LE.O.)  30  TC  335 
YYM=  1.0 
ZN*BL I I , K ) 

XL=F ( I ,K  )/ZN 
30  TO  336 

335  V YM  = 0 . 

ZN=  1 .0 
XL-B! I,K  ) 

336  CONTINUE 


LG® 15 


****£%&*» 


THIS  PACE  IS  BEST  QUALITY  PRACTICABLE 
FROM  COPY  FURBISHED  TO  DOC  


IF(  ( YYM+EP)  .LT.  XL  ) CO  TC  337 
SlZE=SIZE+l 

IFISIZE.LE.NPHIGU  T.i  3380 
S!ZC=SI2E-1 
CO  TO  33 fl 
<3 eo  NDC=NDC ♦ l 

OLPHI SI ZC ) =XL-YYM 
DIPI  SIZE)=-OLPH(SlZE  ) 

WR I T C ( 6 » 54 ) SIZE.MA  ,XL 
DZC<  NOC  ) =-  1 . 130/ Z N 
CO  TO  3 38 
3 17  CONTINUE 
7N  = [UJ(  I » K > 

XL  = B ( I * K Ml N 

I F ( I XL  ♦E  P ) .L  T.  L . 0 ) )0  TO  339 

S I Z E = S l ZEM 

1FIS  IZE.LE.NPHIGO  TO  3381 
S I Z E = S I Z E-  I 
CO  TO  338 
3181  NDC=NOC  ♦ 1 

01 PH( SIZEJ-l.DC-XL 
OL  P ( SIZE  >=-DLPII(  SIZE  1 
WR  l T E ( 6 , 55  ) SIZE  , M , X L 
DZE ( NDC ) = 1 .DO/7  N 
330  H(NDC)=MA 
339  CONTINUE 

00  340  J = 1 1 L 
L L-LL i l 
M = MN ( LL  * K ) 

14.  Z(MA,  1 ) =Z(MAf 1 I + RR( M,  II  I ) 

CO  TO  34? 

141  L L - L L ♦ L 
14?  CONTINUE 

343  CONTINUE 

IF( S IZE  .EQ.O > CO  T.  347 
WRITE! 6, 36)  SIZE 
C....  COMPUTE  DELTA  B VE- TOR 
C....  IPO  IS  CAP  LAMBDA  MATRIX  (NV.NSD) 
IF! IJ.EU.OI  GO  TO  145 
DO  344  J = l * NV 
ROI J ) =USQRT ( WMI J ) ) 

DO  344  1=1, I J 

344  DPBI J, I )*DPB( J, I )*RDC J) 

345  CONTINUE 

C 

CALL  DELBEI l J, NDC, NV,d347» 

IF! I J.EO.O)  GO  TO  3 »1 
DO  146  J=1,NV 
XX=l  .ODO/ROI J) 

DO  346  1*1, IJ 
146  DPBI J, I I=DPB( J, I )*XX 
CO  10  351 
347  CONTINUE 

C...  NO  VIOLATION  OT  CO.sTRAlNTS 
I F ( IT*  4. EO.O)  UC  TJ  34B 
WRITE! 6, 58) 

XL  = 3 IT 
UF*XL 

STEP=(CC5T*XL )/ 1 CCC ♦ SUML ) 
5TEP=STLP*STP? 

GO  TO  349 


I JIM 


348 

r 


349 


350 

351 


3 5Z 
383 

354 

355 


35b 


L • • • • 


357 

358 

359 

360 


361 


XL=R  IN 

NO  INITIAL  VIOLATIU. 

ICV= ICV*  1 
MR l TE I 6 , 59 ) ICV 
YYM=(CO$T*XL)/(CCC*SUML) 
YYM= YYM*  STP2 
MR  I TF I 6 , 45  J YYM 
DO  350  1=1, NV 
PEI  I,l)=-Zt 1,1) *WM( I ) 

PEI  I , 2 ) =0. 

Ml  I )=YYV*BE( 1,1) 

CONT  INUE 

COMPUTATIONAL  CHECKS. 

I F ( I J.CO.O)  GO  TO  354 
WRIT  El  6,  71 ) 

DO  35 3 1 = 1,  I J 
ZZ  I l , 1 ) =0.0 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
IBOI  DOPY  FURBISHED  TO  DOC  " 


ZZI  I ,2)=0.0 
DC35?  J = l * NV 

ZZI!, 11= ZZ (1,1) +DP>' <J,I)*BE(J,i) 
ZZ(I,2)=ZZ(  1,2) ♦OPE  I J , I ) * DC  I J ,2  I 
MR  I T E I 6 , 72)  I , ZZ I I , l ) , Z Z I I ,2  ) 

DO  355  1=1,5 

tin  =o.odo 


1)0356  1 = 1, NV 
FF  = 1 .ODO/WMI  I ) 

T I 1 ) = T I l ) ♦BE  I I , 1 )*CF I I , 1 ) ♦FF 
T(2)  = T(2)*BE(I,  l ) *p  1 1 I » 2 ) *FF 
T(4)=r( 4)*BE( r,2)*tCII,2)*FF 
TC  3 )=T(  3 UZI  I , l )*  "E  I I , 1 ) 
L'P.ININTL,  1 I =DSUR  T I 1 111) 

DP ININTL ,2)=DS0«T( Tl 4) ) 
COMPUTE  NEW  B 


IFISIZL.EU.OIGJ  TO  353 
DO  357  1 =1,  IV 
Ml  I ) =5  T E P*BE I I,  l ) tHC I I ,2) 
SUM  = 0 . 0 

DO  359  1=1, ITC 
XCOSTI I ) =0.0 
DO  360  1=1, NV 
VVI  I ) = 0.C 
L IN  = 0 
X =0 


DO  364  KK  = 1 » NSU 

DO  364  I II  = 1, ITC 

IF!  I TYI  I 1 1 ) .EO.O)  . TO  364 

K=K*  1 


M = 0 

NGK  = NGI K ) 

DO  363  I =l,NGK 
L = IGRT I I , K ) 

IFIL  .CU.01  GO  TO  3(.2 
IF!  VVI  L ) .EQ.1.0  ) 01’.  TO  361 
SUM=  SUM ♦ W( L ) *W I L I 
B(  I,K)=F3(  I,K  34-WIL) 

1FIBI I , K I.LT.BL  I I»K)  ) B I I , K ) =BL I I , K ) 

IF! D(  I,K  I.GT.BUI  I ,K ) )D( I , K) =0U( I ,K) 

VVI L ) = 1 .0 

GO  TO  362 

L IN  = L IN*  l 

LLL  = L INLGIL IN, l I 


r 


V 


NJ G«  =L  INLG(L  IN,/'  ) 

R ! l » K ) = 1) ! NGR  »LL  l.  I 
362  NJJ=NDM(  I * K ) 

DO  363  J = l » N J J 
N = N*  1 
M = MN<  N, K ) 

36  3 XCOST!  I I I)=XCOST(  1 1 1 UB(  I ,K)*RR<M,  I II) 

364  CONTINUE 

V AL  UC  = 0 . 000 
DO  3 6 ft  I =1 » l TE 

3*0  \/ALUC  = VALUE^VCnST(  1 )*CCC 
xi  = (cnsT-vALUc) /co  ,r 
WKITfclft,73)  XL, SUP 
XL  = DAt3S ( XL  ) 

WRITE! 6. 81) 

00  36ft  1=1,  ‘IV 

36ft  WRITE!t»,b2)  I » DC ! i ,l)»R:(I,2)»W!f) 

WRI TE ! 6, 74 ) T ( 2 ) , T ( J ) 

WRITE!  6,  7S)  ( I ,D  IN! I , 1 ) , 1=1 ,NTL) 

WRITE! 6, 76)  11,0  I N ( I ,2 ) , ! =1 ,NTL ) 

WR I TE ! ft. ftO I < l , f C ! I ),I  = 1,  ntl  ) 

I F ( IT3.EU.1TRS)  GO  TO  167 
ir  I XI  ,GT  .RL  ) GO  TO  168 
NSV  = INSV+  1 
WR I TC I 6, 77 ) NS V 

IFINSV-INSV)  367,3ft 7, 367 
367  I TR  = I T» ♦ 1 
0F=STP1*0F 
RIT=STP1*RIT 
RL=0.5*KL 

STEP*!  CUST*DF)/ (CC:*SUML) 

STCP=STCP*STP2 
WP  I T C 1 6 , 78  ) ITK.STuP.OF 
37, R N S V = 0 
36b  CONTINUE 

1 F ( I S UE.EO.O)  . AND.  ( I CRN. EQ.O)  ) GO  TO  998 
IF! S IZC . EQ.O  ) GO  T 371 

UO  370  I=1,SI/E 
I F(  DL ,J ! I I.GT.ERR3)  GO  TO  371 
3 70  CGNTMUC 

IF!DRIN!NTL»  l).LT.i,RR2)  GO  TO  372 

371  CnST=VAI.UE 

I TRN  = l TRN+ l 
GO  TO  999 

372  WRITE! 6, 79) 

WRIT F( 6.40)  VALUE, ( XCOST! I ) ,1 =1 .3) 

ICMEK= 1 
WR I T E( 6 » 40 ) 

GO  TO  7007 
22220  K=0 

IF! IUV.CO.O  .AND.  JUSTW.EO. 0)00  TO  379 
DO  3 78  1 *1.2 

378  WRITE!7»8)(XEIG!J»l ),J=1.NCC) 

377  DO  381  KK=1,INSU 
DO  381  I 11*1, ITE 
IF!  I TY ! III). EQ.O)  .Li  TO  381 
NA=0 
K=K*  1 
NGK=NO! K ) 

WRITEI6.47)  KK, III 
OJ  380  1=1, NGK 

I 


52?^®  IS  BEST  QUALITY  PRACTICA&ui 
FROil  COPY  rURMISHED  XODDQ  ^“4 


I 


J=NOM(  I t K ) 

Wrt  I T E C 6, 461  If  I GK  f ( I ,K)  ,6(  I ,K)  , (M,N(f  A + L,K)  ,L=1  , J) 
38U  MA=MA*J 


rfR l TE ( 7 , 4)  (3  ( I ,K  » , 1 = 1,  NGK  ) 

WRITE! 7.  IO>  ( IGRT I [ ,KI,I  = L,NGK) 
381  CONTINUE 
30  TO  222 
77  7 WR  I TE  ( 6*  *j  L ) 

2 22  C3NTINUL 
CALL  EXIT 
STOP 


5*55  SS^ 


^cticaW* 


ENO 

SUBROUT INE  VARI ( K ) SUB  l 

COMMON/Vl/Nl ,NC I , NWK , NGK , MA , NU1 » NU2 , NU3 , Ml , MB , NJK, NC , NL I , ISO, 101 
C0MM0N/V2/NIC  ( 3>,nU(  6 ) , N3  ( 6),NBW1(  3),NBh2(  3),NPW3(  3),NM<  6), 

1 NIC  J ( 3 ) , N J ( 3 ) , NCH  t 31.NEWI  3I.I0SI  3),ME0l  6),HEF(  6) 


C *********  ***********  «*nf,***(r»*,*,*,*,»,,*,,*M,**„*,,M*»Mt*,,»,*», 


C*  THIS  SUBROUTINE  GENERATES  VARIOUS  VARIABLES  FOR  KTH  SUBSTRUCTURE  * 

NIC  I = N IC  ( K ) 

N l = N C S ( K ) 

NU1 -NBW  l ( K ) 

NU2=NBW2 (K ) 

NU3=NBWJ(K) 

NO=NBJ( K ) 

N JK  = NJ ( K I 
NC=NC I *N  1 
MA  = 0 
RETURN 
ENO 

SUBROUTINE  ELES TF ( V » , 1 1 I , I 8 , K ,KK ,M6 , M7 , 1 9 , I SPSP, NN» J8 , M8 , I DV , GG > SUB  2 
IMPL  IC  I T REAL*B  (A-M,  0-7.1 
INTEGER  SIZE.BNC.SN 

COMMON  STEP.BNC ,SN,NBW,SI ZE,NLC,NSU 

COMMON/P  l/B l I 9,  9 J , B 2 ( 9,  9),E3(  9,  9),ESF(  9,  9),NA(  1561, NIK  9 
II, NJK  9 ) , N J 2 ( 9) 

C3MM3N/P2/XNUUI  14,  6>,ELL(lCb,  2>,KU(  14,  6 ) .STRESS (1620  I , TCSMI 

1 166  I , TRCSSP ( 2800 1,  XCJSTI  3),ICSS(  108,  2),ISAC(  108,  21,IN0C(  108 
2,  2 ) , I OR  T ( 14,  6 » , l 'ARE  ( 100,  2»,NN0C(  10801, LLN(  3),ITY(  3!,!CSSM< 

3 108,  21 

C0MM0N/R2/PI ( 12,  1,  3),RR<  108,  2),C(  14,  6),MN(  100*  6),N0M(  14, 

1 61 

COMMON/ A 3/BR ( 108,  2>,TRSF(  100,  1»,CSTF(40,  1,  4),SSPF(  1,  1,  31, 

IZ(  51,  3>,0ZE<  60 ) » MP  ( 108,  21,ND<  216) 

COMMON/A4/X  ( IL'O,  U.OLPI  60),DLPH(  601, T(  156), WM(  51),R0(  51) 

C0MM0N/A6/DPZI  60,  >0),ZZ«  72,  3),BC(  108,  3),W(  72), H(  108), VV( 

1 L56 ) , Y ( 100,  1 ) , NZ  C ( 24,  3) 

10  FORMAT ( 1616) 

35  FOR MAI ( ' G • » ' EL  NO  JP  JO  JR  MP • , 8 X , • L/S A • , 9 X , • L l • , 1 2X, • Ml • 
l, 12X, *N1  • , 12 X, • L2* , 12X, 'M2' ,12X, • N2  • /•  • ) 

V.  FORMAT ( IX, 615, 7E 15 ,4) 

RRITFI6, 35) 

DO  700  M =M6 » M 7 

REAOI 6,  10)  MM, JP, JU. JR.MPNM, I 1 1 ) 

XL=X( JO,K)-X( JP,K) 

YM=Y(JQ,K»-Y(JP,K) 

ZN=Z(JO,K)-Z(JP,K) 

I F ( I 1 1 .GT. 1 » GO  TO  600 
10=3 

C....  TRUSS  ELEMENT  STIFF.  MATRIX. 

ELL(M,  l ) =DSORT t XI  * XL ♦ YM* YM* ZN* ZN ) 


THIS  PACE  IS  BEST  QUALITY  FRACTICABJ*! 
PROM  COPY  PURMISHEB  TODOO  

EL  = 1. /ELLIM,  III) 

Cl =xl*el 
Cm=ym*el 
CM=Z  N*EL 

W-UTfc<6,36)  M,JP,  Ji„,  JR,MP(M,!II  ),ELL(K.,1),CL,CK.CN 

CON  = E ( IGREIM, 1 ) ,KK)*EL 

ESK  < 1.  1 ) =CL 

E'FI  1,2 >=CM 

ESFI  1,3  1 =CN 

Pll 1,1 ) -CL*C  L 

Cll(2,2t=CM*CM 

Pll 3, 3)  = CM*CN 

I!  1 ( 1,2)=CL*CM 

BKl,  S)=CL*CN 

P 1(2,  3 ) = CM^C ‘4 

1 F I IDV.EQ.O)  GC!  TJ  600 

CnNM=l<n(  IGREIM,  l II)  )*ELL( M,  l l I » /(6. 0*GG) 

0 21  1,  1 1*1.0 
I DM  = 1 
GO  TO  6 9') 

600  IF(  III  .GT.2)  GC!  TO  ‘>15 
10=9 

....  CST  ELEMENT  STIFF.  MATR  I X . 

BX=DSQRT  ( XL*XL  «•  YM*YM«-ZN*ZN) 

Esri 2, 1) = XL /PX 
ESFI  2,2  1=  YM/PX 
ESF ( 2, 3 ) = ZN/RX 
XL  = X(  JR,K)-X  I JT»  ,ii  > 

YM=Y(JR,K)-Y(JP,K) 

ZN=Z(JR,K)-Z(JP»K) 

SX=Xl *CSF(2, 1 ) f YM«LSF  ( 2,2 HZN*ESF  (2, 3) 

XL=Xl-SX*EFF I 2, 1 ) 

YM=YM-SX*ESF (2,21 
ZN  = ZN-SX*ESF  ( 2,  3) 

HX  = DSim<  XL*XL*  YM<  YM  + ZN+ZN) 

ESFI l, l )=XL/HX 
ESFI  1,2  I =YM/HX 
ESFI 1,3) =ZN/HX 
ELLIM,  2)=0.5*3X*Hx 

WRITE! 6, 36)  M.JP, JO, JR.MPIM, I II) , ELLIM, 2) , ( (ESFI J,L> ,L*1,3), J*l,2 ) 
XNU=XNUU( fGREIM,  2), KK) 

L TA= I l .O-XNU  J*0 . 6 

CON  = E I IGREIM,  2)  ,KK)/(  I 1 . 3-XNU*XNU) *2 . 0*BX*HX ) 

pms=rx-sx 

IIH*HX*HX 

SZ=SX*SX 

8B=B  X*BX 

r,MSS=BMS*BMS 

SBMS*SX*BMS 

IIRMS  = HX*  RMS 

BOMS  = RX*  BMS 

Bill, 1 )=BMSS+  HH*t  r A 

Pll  l ,2  ) = I XNll  + ET  A I *11  RMS 


till 1, 3I*SBMS-HH*LTA 

Bill  ,<,)  =-HBMS*XNU«r3X*SX*ETA 

PI  I 1,5)*- BOMS 

Bll 1,6) =-HX*BX*ETA 

BH  2 , 2 ) * HIHBMSSMtrA 

1)1(2,31=  XNU*SX*HX-  iBMS*ETA 

Bl(2,4)=-HH»SBMS*ErA 

i)l(  2,5)  =-3X*HX*XNU 


I 


Bl( 2.6) =-BBMS*FTA 
B 1 ( 3 * 3 » = SZ ♦TIH* ETA 
Bl( 3*4 ) = - ( XNU+E  TA 1 *HX*  SX 
nil  3*51  =-SX*BX 
01(3,61=  HX*BX*ETA 
Bl(A,4l=  HH+SZ*ETA 
Bl<4,5)=  HX*BX*  XNU 
01( A, 6»=-SX*BX*ETA 
01(5,51=  BO 

H 1 ( 5 , 6 1 = 0.0  I 

01(6,61=  BB*ETA 
DO  501  J = 1 , 6 
DO  501  L = 1 , 6 

501  BKL,J1=B1(  J,L> 

00  502  J = l , 6 

DO  502  1*1,9  1 

502  02 ( J , L 1=0.0 
JJ  = 0 

DO  50A  L S= 1 , 5,2 
L E = L S+l 
DO  50A  J = 1 , 3 

JJ=JJ+1  1 

DO  50A  L = 1 , 6 

50a  B 2 ( L , J J 1 =B2 ( L , J J 1 ♦ I 1(L,LS1*  E SF ( l , J 1 ♦ B1 1 L, LE  1 * ESF(2,J» 
nn  503  j * l , 9 
DO  503  L = J , 9 

503  Bt(J,L>=0.0 
JJ  = C 

DO  506  L S=l, 5,2 
LE=L SM 
DO  506  J = 1 , 3 
JJ* JJ+1 
DO  506  L =J J , 9 

506  0 1 ( J J , L 1 =B  1 ( J J , L 1 ♦IV  ( L S » L 1 * ESF (1  , J 1 *B2 ( LE , L 1 * ESF(2,J1 
I F ( IDV.CU.01  GO  TC  600 

GGNM=RO(  I GRE  ( 9 , (II  ) 1 *EL  L ( M , I 111/(12.  O^GG  1 
H2(l, 11=1.0 

1 DM  = 1 

GO  TO  599 

C....  SSP  ELEMENT  STIFF.  M A TR I X . 

515  10=6 

SSPB=DABSIZ(JP»K)+Z(JQ*K1 1 
SSPA=OSORT(XL*XL*YM*YMI 
ESF I 1, 1 1 =XL/SSPA 
ESF ( 1,21  =YM/ SSP A 
ELLIN  3 1=0.  5*SSPA*SSPB 

WRITE (6, 36)  M,JP,J0,JR,MP(M,II1 1 ,ELL(M,31,ESF(1,11,ESF( 1,21 
XNU*XNUU( (GRE (M , 31, KK) 

THETA=SSPA/SSPB 

CON=C( I GKE ( M, 3 1 , KK 1/(12. 0*( l . 0* XNU ) I 
OCM=  ESF ( 1,21 
OCL  = ESr(  1,  1 1 
DCLL  =DCL  *DCL 
DCLM=DCL*OCM 
DCMM=DCM*DCM 
1 1*2 .0*1  1.0+XNU  1 /Till  TA 
I F ( ISPSP.NE.01Z 1*0.0 
Z 2*3 .0*THE  TA 
Sll*ZUZ2 
S13=-Z 1 +L2 
S22*  3.0/THETA 


best  aoU/iw 


THIS  PACE  IS  BEST  QUALITY  PRACTICABHI 
FBOlt  COPY  gLtRJii-^HKjn  JQSBQ  - — 


0 1 ( I * I ) = S11*DCLL  rau*  uurx  jfumLbiLau  wuy! 

oi(i,2)=  sk*d:lm 

0 i ( 1 , 3)=-3.0*DCL 
Bl( 1 ,61=  S13*DCLL 
»1( 1,6)  = S13*DCLM 
Pl(  1,6) = 3.o*dcl 
fi  1 ( 2 , 2 ) = Sll*r*CMM 

P 1(  2 , 3)=-3.0*DCM 
01(2,6)=  S l 3*DC  L M 
BK2, s)=  si3*d:mh 
01(2,61=  3 . 0*DC  M 
Pl( 3,3)=  S22 
OK  3,6)=-3.0*DCL 
01( 3,6)=-3.0*DCM 
Bl( 3 , 6 ) =- S22 
01(6,6)=  S 1 1*DCLL 
01(6,6)=  Sll*OCLM 
P I ( 6 , 6 ) = 3 . 0*DC  L 
0 1(6,6)=  SIKOCMM 
01(5,6)=  3.o*dcm 
01(6,6)=  S22 
( F ( 10V.L0.0)  '1C  TD  600 

CONM  = RO(  rGRE (M,  1 1 I ) )*SSP3*SSPB/( 6. 0*GG ) 

XMll=THETA/3.0*XNU*THETA/6.0*(  THETA** 3 ) / 1 0 . 0+0 . 1 *XNU*XNU/THET  A 
XM12=-0. 26* ( THLTA*THETA*XNU) 

XM 1 3=THL TA/6.0-XNU<  THE TA/6. 0- ( THET A**3 ) / 1 0 . 0-0. I *XNU*XNU/THET A 

X M 22  = T HE  T A 

P.2  ( 1,1)  =DCLL*XM  1 1 

02 ( 1,6) =DCLL*XM 1 3 

L2(6,6)=02( 1,1) 

0 2 ( 1,2)=DCLM*XM ll 
C 2 ( 1,5)=  DCL  M*  X'3  1 3 
02( 2 ,6 ) = DCLM*  XM 13 
B2 ( 6 , 5 ) =DCLM*XM 1 1 
e2( 1 , 3)=DCL*XM12 

0 2 ( l , 6 ) = OCL*  XM 1 2 
02(3,6) =-DCL*XK 12 
02(6,6)=- DC L*XM12 
02(2,2)=*OCMM*XMll 
02(2,6)= DC MM*XM13 
P.2(5,5)  = *DCMM*XM1  1 
02(2,3)  = *OCM*XM 12 
B?( 2,6)= *DCM*XM l 2 
B2(3,5)=-DCM*XM12 
T2( 5,6)=-DCM*XM12 
B2( 3, 3 ) = *XM2  2 

02( 3,6) =XM22*C. 5 
02( 6,6)=*XM22 
1 0M  = 6 

699  (CSSMM,  III  ) =M3 
DO  616  J = 1 , I DM 
00  616  L =1, J 
M3=MB*  1 

616  TCSM ( MB  ) =CONM*B  2 ( L , J ) 

600  I CSS ( M , I I ! ) = I 8 
DO  516  J =1 , ID 
HO  516  L = 1 , J 
18*15*1 

516  TRCSSPl  I8)«CCW*BHL,J) 

L=NV*( JP-l ) 
l«NN*( JO-1) 


MIS  PAGE  IS  BEST  QUALITY  FRACTICABL* 
N=NN*IJR-1)  m*  OOPY  /URiUSHED  TO  DDC 

OH  517  J=1,NN  ' 

M A ( J 1=ND(L+J  ) 

N A I J *NN  ) =ND I I+J  ) 

I F(  1 1 1 . EO .2 ) NAIJ  + 5N)=N3(N*J) 

511  CONTINUE 

I S AC ( M,  III  ) = 19 
I F ( III  .fcQ.l)  I D = 6 
DO  519  J = l , I D 
19*19*1 

NNDCI  1 9 I =NA ( J 1 
HO  CONTINUE 

I F ( 1 II.GT.l)  TO  TO  200 
DO  *00  [=1,3 
DO  *00  J = I , I 

*00  Bl I I , J )=bl  I J,  l> 

DO  801  1=1,3 
HI  I 1=0. C 
00  801  J = l,  I 

801  Ml  I 1 =HI  I 1 ♦ESF 1 1 , J 1* C 1 1 J , 1 1 
I NDC I M , l IT)=J8 

LLNI III ) =NN 
DO  802  J=l,NN 
J8  = J 8*1 

802  STRESS  l J8 ) =M ( J ) *COU 
GO  TO  700 

800  IF!  l II  .GT.2)  GO  TO  716 
LN  = 3 

LLNI  II  I I =LN 

C....  STRESS  MATRIX  TOR  S r.  T ELEMENTS. 

CON=CON*  2.0 
811  1,  1 ) = -BM  S 
Pill , 2 1 =-HX*XNU 
811 l , 3 1 =- SX 
OK  1,*)=-01(  1,2  ) 
nil  1,51=  BX 
Ell  1,6)  = 0.0 
81(2,  1 )=-BMS*XN!J 
81(2,2)=-HX 
811 2, 3) =-SX*XNU 
8 1 1 2 , * 1 = HX 
8112,5)=  BX*  XNU 
81(2,51=  0.0 
81(3,1) =-HX*E  T A 
0 1(3,2)  =-f)MS*ET  A 
31(3,3)=  HX*ET  3 
01 1 3,* ) =-SX*ETA 
B 1 1 3,5)=  0.0 
01(3,5)=  B X * t T A 
DO  713  1=1,3 
00  713  J=l,9 

713  821  I , J I =0.0 
JJ=0 

DO  703  L S= l , 5, 2 
L E = L S*  1 
DO  708  J = 1 , 3 
JJ  = JJ*  1 
DO  708  1=1,3 

70S  B2I  I,JJ)*C2(  I , J J I ♦!’.  1 I I, LSI*  ESF I l » J ) *B 1 1 I ,LEI*  ESF(2,J) 

GO  Tfl  805 

C....  STRESS  MATRIX  FOR  SSP  ELEMENTS. 


I 


i 

I 0 


( 


r 

7 1 f>  ET3=P.6/(  l.OfXNUI 

CON*  E ( IGRFIM  , IIII.KKI 
M 3 = t T 3* LON 
A X = 1 .O/SSPA 
r.X=  1 .O/SSPR 

I F ( ISPSP  .E4.  I ) GL1  I”  731 

, fi?(  i < 1 1 =-dcl  *ax*cu.  i 

1 R2(  1 ,2  ) =-DCM*AX*CU , 

P.2(  1,  3)  = 0.0 

, R?(  1,4)*-B2<  1,1  I 

R 2 ( 1,6)  = -B2(  1,2  1 
P21  1,61=  0.0 
J*2 

731  IF(  ISPSP. NE.0)J=1 

I 2(  J , 1 ) * DCL  *E  T 3*BX 
R2 I J * 2 1 = OCM*ET 3*nX 
R2I J , 3 ) = -E  T 3*  AX 
"2< J,4)=  02 ( J,  l ) 

I.2(J,6)  = B2(J,2I 
r2IJ,6)=-82l J, 3 ) 
l N=  J 

1 LL  N(  III  > = J 

COM*  1 . C 

h o*>  indc  im,  i i i i * jo 
L E= I T Y ( III) 

00  3 36  I = 1 , L N 
rrj  3 36  J = 1 , L C 
JC*J8«-l 

3 36  STRESS!  Jo)=R2(  I ,JXCON 

7 30  CONTINUE 
RETURN 


THIS  PACE  IS  BEST  QUALITY  PRACTICABLg 
FROM  COPY  /URiHISHEC  TO  ODQ  — 


END 

SUB  1 OUT  I ME  STIFFM(l,K,MD:,I8,*,I0l) 

IMPLICIT  REAL*!!  (A-H.0-2) 

INTEGER  SIZE, BMC  , S'l 

COMMON  STEP,  BNC , SN, MOW, SI ZE ,NLC ,NSU 

COMMON /Vl/Nl ,NC I , NWK , N3K, MA , NU1 ,NU2 , NU3 , Ml , NB , N JK, NC , N1 l , I S 0, 101 
COMMON/ V2/N IC  ( 3),N*(  6),NG(  6),NBWl(  3),NBW2I  3 I , NT.W  3 ( 3),NM(  6), 

1MI3JI  3 ) , NJ  I 3 I , NC  B ( 3),NEW(  31.I0SI  3),MEB(  6»,MEF(  61 
COMMON/P  1/B 1 I f,  9),B?<  7,  9),B3(  9,  9I.ESFI  9,  9),4A(  156), NIK  9 
ll.NJII  9 1 , N J 2 I 9) 

COMMON/P2/XNUUI  14,  6),ELL(108,  2),(IU(  14,  6 1 , STRESS  ( 1620  1 , TCSM! 

1 166), IRCSSPI2803I, XCOSTI  3),ICSS(  108,  2),ISAC(  108,  2I,INDC(  108 
2,  2 1 , l GR  T ( 14,  6),I3KE(  108,  21,NNDC(  1080), LLNI  3),ITY(  3),ICSSM( 
3 108,  2) 

C0MM0N/P3/EVECI  1,  1),R3F<  7),RDLIM(  7),RSL(  7),RSU(  7),RL0AD<  7) 
1 , KEOUC ( 90 ) , NOOF I 7),NDM(  90),NB0AM!  6,  6»,KIIDAM(  3,  7) 
C0MM0M/R2/PI ( 12,  1,  3),RK  10B,  2),L<  14,  6),MN(  10.>,  6I.N0MI  14, 
l 6) 

COMMO J/R4/I IL 1 50,  3),KLC(  50),I0K(  3), NO!  1) 

COMMON/R  s/R  ( 14,  6),SL(  14,  6»,SU(  14,  6>,UPBI  51,  SO  ) , OL I M I 12,  3) 
1 • SS ( >11 

COMMON/ A 1/0 ( 12,  24,  3 I , Z I ( 1 2 , 1,  3),C(  36,  24>,ZR(  36,  1) 

COMMON/A 3/BRI  lOB,  2 ) , TRSF I 108,  l),CSTF(48,  1,  4),SSPF(  l,  1,  3), 
1Z(  51,  3J.UZFI  60 1 , MP I 108,  2),N0(  216) 

C0MM0N/A6/0I  36,  241, JS(  36,  50),A2(  36,  50 1 ,DK M 12 , 36 ) , K I IU BWI  31 
COMMON  / A 6/ OP  Z ( 50,  iO),ZZl  72,  3), BE!  108,  3),W!  72), H(  108), VV( 
l l 56  ) , V ( 10  B,  3 1 , NZ C ( 24,  3) 

COMMON/tl/XE (G(  72,  21.YXEIGI  72,  2),WS(  2),DM(  1,  l),IETA(  71 

3/C3/  (JUKI  2,  ? I , OQM I 2,  ?),0A(  2,  2) 

; ************* ***********  ************ ********************* **** ********** 

I 3.1 


1 


{ 


c* 

DESCR IPTICN 

OF  VARl  \BLES 

* 

c* 

U 

STORES  (E ( I 1 *B (I  1 1 /LI  I 1 

i no.  or  menbers 

* 

c* 

OK  I 

STORES  K I I IN  BANDED 

DECOMPOSED  FORM. 

♦ 

c* 

OPZ 

STORES  KBI  IN  FULL 

* 

c* 

c 

STORES  KB  FOR  WHOLE 

STK  IN  BANDED  FORM 

♦ 

l 0=0 
KK  = 0 

IUC=NUC-  1 
I NOE  X = I 0 1 

00  909  K=l,NSU 

c r THIS  PAGE  IS  BEST  QUALITY  PRACTICABia 

CALL  VARIIK)  Xt&M  OUPY  JTUEUU.SHED  TO  UjC  — 

1 OK ( K ) = 0 

DJ  l 2 I = 1 » N 1 
00  12  J = l » N 1 
1?  A2 ( I , J ) =0.00 

iHNici.ro. o)  go  ro  is 

00  14  1 = 1,  NCI 

NAI I 1=0 

00  l l L = l , ML  C 

11  BE  l I , L ) = P I ( I , L , K 1 *R  L 0 AU ( NUC 1 
DO  1 1 J=  1.NU3 

13  U( I, J)=0.00 
00  14  J=  l,Nl 

opz ( l , j ) =o.oo 

14  0S( I ,J 1=0.00 
lb  00  2 9 I I 1 = 1, 3 

I FI  ITYI  I I [ 1.E0.01  or  TO  29 
K = K K f 1 
M6=M ED ( KK  ) 

MT=MrF(KK) 

DO  16  i 4 =M6 » M 7 
16  'll) l 1 4 ) = 0 

IF(IDC.EQ.O)  GO  TO  18 
NDO=NBDAMIKK, IOC  1 
I F ( MOO. EO.O 1 GO  TO  18 

00  W 14=1, MOO 

1 8= I «♦  l 

NO ( NOM  ( 18)1  = 18 
17  CONTINUE 

10  00  2 8 I 4 =M6, M 7 
Zl=1.0 

ir(NO( I41.NF.01G0  TC  202 
X X = B ( 1GRE(  14, II  I 1 , KK  ) * Z 1 
OR ( I 4,  I I I > = XX 

GO  TO  203 

202  7 1 = 1 .00- REDUC ( NO ( 1 4 1 ) 

X X = B ( IGRE( 14, m 1 , KK ) * Z l 
HR{  14,  I ( I )*XX 

203  IFIXX.EU.0.01G0  TO  28 

C 

CALL  RECALL ( III  ,LE,  IS, LF, INDEX,  14, XX) 

IFINCI.tU.01  GO  TO  25 
00  24  J = L S*  L E 
I J=NNOC( LF  + J 1 
IF! I J.EU.O)  GO  TO  24 
1 F ( IJ.GT.N1>  GO  TJ  21 

00  20  l*LS,LE 

1 L =NNDC  ( LF  4-L  1 

I F ( IL .EO.O)  GO  TO  20 


1 


TO  2 3 


IF( IL.GT.Nl.OR. IL.L T. [ J)  GO  TO  20 
!K=ll-| J*1 

1 F ( IK.GT.NU2)  GO  T.  20 

A2(  IJ,  IL  )=A2<  IJ,  IL)fESF(J.L) 

CONT  IN  lit 
GO  TO  2 
I J= I J-N 1 
DO  23  L = L S * L E 
I L - NNDC ( L F >L  » 

I F ( IL.tU.O)  GO  TO  2 3 

fF(  IL.GT.N1)  GO  TO  22 

DSU  J,  IL  ) = DSt  I J,  IL  )-  E5F  ( J,L  ) 

DPZI  IJ,  I L ) =-OSI  I J , I L ) 

r.O  TO  2 3 

I F ( K I IDAMI  K , NOC  ) . fc'l.O  ) GO  TO  23 
I L = I L - N 1 

I F ( 1L.LT.IJI  GL!  TO  2 3 
IK= I L - I J ♦ 1 

I F ( IK.GT  .MU  3 ) JO  T : 23 
0 ( I J » l K ) = 01  I J , IK) *ESF 1 J,L  ) 

GONT INUE 
CONTINUE 
GO  TO  2d 

DO  27  J = L j,L  E 
I J=NNOC ( LF+ J ) 

IF  ( I J.tO.O)  GO  TO  2~> 

00  26  L=LS,LE 
I L=NNOC ( LF*L ) 

1 F ( IL.HO-  0 . OK . I L .L  T . I J ) GO  TO  26 
IK* I L- l J ♦ 1 

I F ( IK.GT.NU2)  GO  T 26 

A2( IJ, IL  ) = A 2 ( l J » I L ) + E SF (J,L) 

CONT  nut 
CONTINUE 
CONT  INUL 
CONT  nut 

IFINCI.EO.O)  GO  TO  126 
IFINOC.GT.l)  GO  TU  35 

N =0 


THIS  PACE  IS  BEST  QUALITY  FRACTICABLI 
FROM  COPY  yURUISELED  TO  DDQ  


CALL  DECUPt»(N.NU3,  JCI,C44A) 

I)  CONTAINS  DECOMPOSED  K 1 1 . 

I TCI  6, 31)  I (D II  , J) , J=1 ,NU3) ,1=1 ,NCl ) 
FDR  M AT  I »X,6E 15. 5) 

GO  TO  33 

■tr  TURN  1 

< I IURWI  K ) = m 

D'J  34  J = 1 , NU3 

10* ION  l 

l)C  3 A 1 = 1, NCI 

DPBI  1,101=  0(1, J) 

OKI  ( I, IU  )=  0( 1 , J) 

GO  TO  42 

IFIK I IDAMIK, NDC  ).E0.0)  GO  TO  39 

00  36  1=1, NCI 

IFIOII,  l I.NF.O.O)  ^0  TO  36 

3MIIM 

01  I,  l)=l.O 

CONT  HUE 

3 = 0 


i CALL  DECUPP<N,NU3, <C1 .L444I  PHIS  PAGE  IS  BEST  QUALITY  FRA.CTICABM 

> I 0 = < I I UB W*  K > FBQI  COPY  yUKHLSHED  TO  DDC  — 

DO  17  J = 1 » NU  1 
10=10*1 
0?  3 7 I = 1 * NC  I 
37  DPB( I, 10  )=  0(1, J) 

GO  TO  42 
37  IQ  = K I IUB  W( K ) 

DO  4 0 J = 1 » NU3 
, 10=10*  l 

I DO  40  1 = 1,  NCI 

D(  I , J > = DK I ( I, 10) 

40  OPB( I, IU )=0K I ( I , 101 

42  DO  43  L = 1 » NLC 
J=L*Nl 

DO  4 3 1 = 1,  NCI 
Z 1 = 1 .0 

I r C MAI  I ) .EQ.  I ) Zl=  ).0 
DS( I , J ) = BE ( I ,L )*L  l 

43  B E ( I , L ) = DS ( 1,J) 

L 

CALL  SOL  DUP ( J , NU3.NCI) 

C....  DS  CONTAINS  0=-K I I **-  l*KI S AND  K 1 1 *< - 1*PI *R LOAD 
DO  49  1=1, NCI 
DO  4 8 L = 1 , N l 

48  0( I,L,K)=DS(  I , L ) 

1 DO  4 9 L=1,NLC 

J=L*Nl 

49  III  I ,L,K  )=DS(  I,  J) 

C WR  I T E ( 6 * 39 ) K,  ( (0(1  ,J,K)  , 1 = 1 ,NCI  ) , J = l , N 1 1 

C 39  FORK AT ( //  )X , I 2*  ’ MATRIX  3 • / ( 3X , 4E 1 5 . 5 )) 

C....  GENERATION  OF  KB  FM  WHOLE  STRUCTURL  IN  BANDED  FORM  . 

MCI=NU1-N1-1 
DO  124  1=1, N1 
MCI=MCI*1 

IF(MCI.GT.NCI)  MCI=iCI 
DO  124  J = I , N 1 
DO  124  L=1,MC! 

124  A2 ( I , J ) = A2 ( I , JH-DPZIL  ,1  >*0(L , J,K) 

C....  GENERATION  OF  RB  EFFECTIVE  BOUND  TORCE  VECTOR  IN  MATRIX  ZB. 

DO  125  1=1, Nl 
L 1 =NZC ( I , K I 

00  125  L = 1 , NLC 
DO  125  J = 1 , NC I 

125  ZBIL 1,L ) *ZB(Ll, Ll*u( J,I ,X)*BL( J,LI 
I2f>  DO  127  1=1, Nl 

L 1 =NZC ( I , K ) 

DO  127  J=I,N1 

* L2*NZC(J,K» 

IF1L2.LT. Lll  GO  TU  127 
L 3=L  2-L  Ul 

1 F ( L 3.GT.NBW)  GO  T ’ 127 
C(Ll,L3»*C(Ll,L3U\2(l,J» 

127  CONTINUE 
99)  CONTINUE 

C WRITE(6,  1004)  ( ( C ( l , J ) , J = 1 , NH  W ) , 1=1, B NCI 

IF(IDC.EO.O)  RETURN 
DO  129  1=1, BNC 
IF(C(  I,  l I.NE.O.C)  GO  TO  129 
CU,  1 1*1.0 
JO  128  J = l , NLC 


i 

l 


( 
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128  ZB C I * J ) =0.0 
12  9 CONTINUE 
RETURN 
END 

SUBROUTINE  RECALL ( III ,LE  , L S , LF , I NDE X , Ml , XX ) 

IMPL  ICl  T REAL  *2  ( A-II.O-Z) 

INTEGER  SIZE, PNC, SI 

COMMON  STEP.BNC.SN.OBW.SI  ZE,NLC,NSU 

C3MM0N/P  l/B l ( 9,  9I,R2(  9,  9),B3<  9,  9),ESF{  9,  9),NA(  156), NIK  9 
1 ) , N J 1 1 9 ) , N J 2 ( 9) 

COMMON / P2/ XNUU I 1A,  6i,ELL(100,  2), GUI  1A,  6) .STRESS  I 1620) , TCSMI 
1 166  ) , IRCSSP I 2808  ) , XCUSTl  3 ) , I C SS  « 108,  2I.ISACI  IOC,  2),INDC(  108 
2,  2 ) , I GR  T ( 1A,  6 1 , I 0 R F ( 108,  2),NNDC(  1080), LLNI  3 ) , I T Y C 3),ICSSM( 
) 108,  2) 

COMMON/A  )/BR(  10H,  2),TRSF(  108,  l),CSTF(A8,  1,  A),SSPF<  1,  1,  3), 
1ZI  51,  3),0ZE(  601, vp(  108,  2 ) , NO ( 21o> 

NN=SN/2 
L E = I TY  ( III) 
in  I I I.EU.l)  L.-=3 
L S = 1 

L F=  I CSS  ( M I , HI) 

IF!  I NDEX .CO. 2IGU  TO  702 
00  701  J =L  S , L C 
CO  ZOI  1=1, J 
LF  = LFM 

ESF ( I,J )=TRCSSPILF)*XX 

701  ESF I J,  I )=ESF< I, J) 

IF(  I II.GT.l)  GO  TO  702 

on  a o i j o*i,j 

DO  *01  I 0=1, 3 

ESF « JO,  I 0+3 ) =-E  SF ( JO , I 0) 

AO  1 ESFI  JO  + 3,  I0«-3)  = ESF(  JO, 10) 

DD  AO 2 1=1,6 
DO  A02  J=l,I 
A02  ESFI  I, J l=ESF| J,  I ) 

702  IFI INDEX. EU.O)  GO  TO  170 
IF!  I II.GT.l)  GO  TO  150 

Y1  = TCSM(  ICSSMIM  I , I I I U 1 ) * XX 
Y2  = Y UY  1 
DC  60  1 = 1, SN 

00  60  J = 1 , SN  • . 

A = 0 . 0 

IFI  I ,E0.  J ) A = Y2 
I X= I - J 

IFI I lx ♦NN  )* I IX-NNl.TQ.O)  A = Y1 
60  01 1 I , J )=A 
GU  TO  170 

150  l FI  I 1 1 . GT . 2 ) GO  TO  160 

Y l = TCSM I ICSSMIM I, III  U1)*XX 
Y 2=  Y UY  l 
DO  59  1=1,9 
DO  59  J = 1 , 9 
59  0 1 1 I , J ) =0.0 

DU  6 1 1 = 1,3 
DO  6 1 J = 1 , 3 
A = Y 1 

IFI  I ,f(J.  J )A  = Y2 
6 1 P I I I , J ) = A 
L 1 = 3 
L J X = 3 

DO  63  I I *1,2 

i vL> 


SUB  A 


< 


V,? 
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DC  62  1 = It  1 
LI  = LI  + 1 
L J=LJX 
DO  6 2 U = 1 » 3 
LU=L J+l 

62  Bill I*LJ  )=OL<  I.J> 
L 1=6 


63  L J X = 6 

30  TO  1 r 0 

160  L=  ICSSMI MI, III) 

DO  6 5 J = 1 1 6 
DC  65  I = 1 1 J 
L=LM 

Bl( I , J)=TCSM(L )*XX 

65 

170  LE-ITYI  I III 
L 5=  1 

L F* I S tC  < MI, I I I ) 

RETURN 

END 

SUBROUTINE  DEGUPP(M,  I J, N»  * I 
IMPLICIT  RFAL*3  U-H, U-2I 

COMMCTJ/AS/ni  36,  25  I , I j S ( 36,  50),A2I  36,  50 » , DK I 1 1 2 , 36 » , K I I U BW<  3) 

C ********* *********** *4r******** ****************** ********************** 

C*  DECOMPOSE  A SYMMETRIC  MATRIX 

C*  JPPER  BANDED  MATRIX  IS  ASSUMED 

C*  UPPER  OECOMPOSED  MATRIX  IS  STORED  IN  THE  ORIGINAL  POSITION 
C*  ORIGINAL  MATRIX  IS  DESTROYED 

C*  N = B N C I U =BUBW 

t***************** 

13  FORMAT!  • l 30X,  • SIN  .ULAR  MATRIX', 181 

DO  60  I s i,N 

IP=N- I ♦ i 
l = I - l 


SUB 


IF! IU.LT.IPI  |P=IU 
DO  60  J = i,  IP 
SUM  = 0 ( I, J) 

IF! I .EO.  1)  GO  1U  50 
10= IU-J 

IFIL.LT.IQ)  1 0=  L 
IF(IU.EQ.O)  GO  TO  50 
DO  30  K = 1,  10 
MZ=I-K 


3D  SUM=SUM-0(MZ,K«-1  »*u!MZ,Kt J) 
50  IFU.NE.LI  DO  TO  50 

IF<SUM.LE.3.  ) GO  T;.  100 


TEMPxjSQRT! SUMI 
TEMP*!. O/TEMP 
D! I, J)=TEMP 

GD  TO  6C 

50  D ( I , J ) = SUM* TEMP 
60  CONTINUE 
GO  TO  01 
IOC  CONTINUE 


M = I 

RK I T E ( 6 , 13)  I 
RETURN  L 
01  RETURN 
END 

SUBROUTINE  SOLDUP  ( “!L  , I U,  N ) SUB 

IMPLICIT  REAL*B  !A-ll,0-Z) 


5 


6 


13/ 
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C0MM0N/A6/DI  16,  2A1.0SI  16,  5C),A2<  16,  50 ) ,OKI I 12, 36 ) ,KI I UBWI  3) 

Q«*tft*********  <.*****♦***♦************************♦**************  ******** 

C*  SOLUTION  OF  SIMULTANEOUS  EQUATIONS  BY  DECOMPOSING  THE  MATRIX  * 

C*  UPPER  TRIANGULAR  BANDED  MATRIX  IS  ASSUMED  * 

C*  SOLVE  BY  FORWARD  A O BACKWARD  SUBSTITUTIONS  * 


C*  DS  IS  THl  RHS  MAT<,  X 

C*  DS  CONTAINS  THE  SOLUTION  AT  THE  END 
C*  DS  IS  NOT  SAVED 

C*  FORWARD  SUBSTITUTION 

C*  N = B N C IU=BUPW 


C 60  FORMAT ( 2X, • BOUNDARY  DISPLACEMENTS  IN  OVERALL  SYSTEM* / I 3X , AF IS. 5 ) 1 
Dn  20  1=1* NL 

20  DS ( l , I ) = DS(  l, It  *D(  l,  1 ) 

DO  10  I =2,N 


J = I- IU+  1 

I F ( I I ■*■  l ) .Lt.  HD  J = l 


I J=  1-  1 

00  2 S II  = 1,NL 
DO  IS  K = J , I J 
t S=I-K*l 

IS  DS  I I , I I ) =QS  I I , I I)  -Li  I K , L S ) *0  S I K , I I ) 
26  DS  I I , I I t =DS  I I,  I I >*,!<  I , 1 t 
10  CONTINUE 

C....  BACKWARD  SUBSTI  TUTIf.N 
DO  30  1=1, NL 


30  DSIN, I ) = DS I N , I ) *C  I IN  , 1 ) 


L=N-1 

DO  VO  I I = l,L 
l=N-  I l 


J I = I - I 


J=J I ♦ I U 

I F I J . GT . N 1 J =N 
IJ= I +1 

DU  86  M = l , NL 
DO  06  K = I J , J 

<J'3  DS(  I ,M)  = DSI  I ,M)-D(  I ,K-JI  )*DSIK,M1 

P.S  DS  1 I ,m  ) = IDS « I , M ) *D I I * l ) 

00  CONTINUE 

WRITE(b,60)  (IDS! I, J) ,1=1 ,N) , J=l ,NL ) * 

RETURN 

END 

SUBROUTINE  MEVE C I NN, NCC , L DC , I 8, I A ) 

IMPLICIT  REAL*8  IA-H.0-2) 

INTEGCR  SIZE, BNC  « S « 

COMMON  STEP,BNC,SN,’IBW,SI  ZC.NLC.NSU 

CDMMON/V 1/N1 ,NC I , NWK , NGK , M A , NU1 , NU2 ,NU3,Ml ,NB,NJK,NC,N1 l, ISO, 101 
C0MM0N/V2/NICI  3),NWl  6),NGI  6),N0Wll  3),NBW2(  1),NUW3<  3),NMI  6), 
1NBJI  3 ) , N J ( 3 ) « NCU ( 3),NEWI  il.IQSI  3 ) , MEB I ftt.MEFI  6) 

COMMON/ P 1 /B 1 1 0,  0 ) , B2 1 6 , 9),B3l  9,  9),ESFI  9,  9),NA<  1561, NIK  9 
! ) , N J 1 1 9 ),NJ2!  9) 

C0MM0N/P2/XNUUI  1A,  61.ELH103,  2), BUI  IA,  6 ) .STRESS  l 1620  J , TCSMI 
1 156) , TRCSSPI 28 OB), XCOSTI  3),ICSS(  108,  2),ISACI  108,  2),INDC(  108 
2,  2 ) , I GR Tl  IA,  6 ) , 1 jRL I 108,  2),NNUC(  1000), LLNI  3),ITYI  3),ICSSM| 
3 108,  2) 

CnMM0N/P3/EVCC  I 1,  l),RRF(  7),KDLIM(  7J.RSLI  7),RSUl  7),RLCAD<  7) 
1 , REDUC I 90 ) , NDOr I 7>,NDMI  VO),NBDAMI  6,  6),KIIDAMI  3,  7) 

COMMO J/P5/YK I 1 ) , YM I 1),SK<  1),SM(  1),EYI  l),SSI  1) 

COMMON/RS/BI  IA,  o I , SL I IA,  6),SUI  LA,  bl.DPBI  SI,  SO ) • DL T MI  12,  3) 
l, SSI  51) 

COMMON/A 3/BRI  108,  2),TRSFI  108,  ll.CSTFIAB,  1,  AJ,SSPFI  1,  l,  3), 

1 5* 


m Sit  3 I , OZ  E C 60), "P<  108,  2),ND<  216) 

C0MM0N/A6/nPZ(  SO,  .0 ),ZZ(  7?,  3),Ull  100,  11, W<  721, H(  108), VV( 

1 1 56  ) , Y ( JOB,  VJ  , N?0f-26,  3) 

COMMON/C  l/XF  1G<  72,  2 ) » YXE l G ( 72,  2),WS<  2),UM(  1,  l),ICT(  7) 

I OC  = L OC  - l 
NCX=8NC 


KK  =0 
1012=2 
[N0EX=I012 
DO  111  1=1, NCC 

on  1 1 1 jj=i  , r a 

1 l 3 YXE 1G( I , JJ ) =0. JO 
DO  108  K = 1,NSU 

c 

CALL  VARI(K) 

OJ  8 000  6 111  = 1,0 

IF(  I T Y < I II  l.EQ.OIOC  TO  80006 
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KK  =K K f L 


M6=KEI  ( KK  ) 

MZ=MEF( KK) 

L)3  16  I6=M6,M7 
16  MIX  I 6 ) =0 

i f i inc.co.oi  00  to  is 

NOO  = NBDAfM KK , I JC  I 
I Ft NOO. EO. 01  GO  TO  18 
DO  17  I 6 = 1, NOO 
1 8 = I 8 *•  1 


17  XD( MDM(  18)  ) = I 8 

18  no  107  1A=M6,M7 
Z 1=1-0 


IF( MD(  18  ) .NE.O)  Z 1 = 1 .O-REOUCINDl 16 ) ) 
X X = B 1 IGKE1 16 , I 1 I)  ,KK)*Z1 
DR  ( I 6,  I I I ) = X X 
l F ( XX.LU.O.O)  GO  T 107 


CALL  RECALL ( III  ,LE,LS,LF, INDEX,  16,  Xx) 

U?  106  I =L  S , L E 
IJ=NN0C(LF*I  ) 

I r ( I J.EO.O)  GO  TO  I'-ft 
IFUJ.LE.NI)  ! 5 =NZC  I I J , K ) 

IFIlJ.GT.Nll  15=NL<MJ-M1 
00  10t  J=LS,LF 
1L=NNDC  ( LF+J  ) 

IF(IL.EU.O)  GO  TO  1 05 
1 F ( IL.LE.N1)  I6=NZ.< IL,K) 

IFUL.GT.Nl)  I6=HCX»IL-Nl 
00  100  J J = l , I A 

100  YXEIGl I5,JJ)=VXLIG( I5,JJ) *P1 ( l,J)*Xt  IG(I6,JJ) 

105  CONTINUL 

106  CONTINUE 

107  continul 
eC006  CONTINUE 

NCX*NCX>NC I 
nr.  CONTINUE 
RETURN 
END 

SUBROUTINE  UEFKEOIF R C 0, RF  f , NN, F OEM, NCC ) 

I MPL ICI ' K E A L * 8 ( A-U.O-Z) 

INTEGER  SIZE ,BNC , SN 

COMMON  STE°,BNC ,SN,UBW,SC  ZE .NLC.NSU 

COMMON  / VI/, N1  ,‘1C  I , NwK  , NGK,  MA.NUI  ,NU2,NU3  ,M1  ,KB,NJK,Nf,Nl  1 , ISO,  101 

/ yi 
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CUMMUN/V2/NIC 1 3 ) , 'i  l 1 1 b),NG(  6 ) , NOW I ( 3),NHW2I  3),N°W3<  3),NM1  6)« 
I NJf3  J ( 3),NJ(  3 ) , NCB 1 3), NEW!  3),IQS(  3),MEB1  6 ) »MEF  ( 6) 

COMMON/  P L/B 1 ( 9,  9 ) , B 2 1 9,  9),B3<  9,  9),ESF(  9,  9),NA(  156), NIK  9 

ll.NJll  9 ) , i4  J 2 ( 91 

C3MMON/P2/XNUU1  1 4 , 6),ELL(108,  2),KU1  1 4 . 6 ),  STRESS!  1620  ),  TCSHI 
l 156) , TRCSSP 1 2808 ) , a COST!  3),ICSS(  108,  2),ISAC(  108,  21,INDC(  108 
2,  2 ) , I GR  T ( 14,  M.lGRCl  108,  2),NNOCI  1080), LLN(  3>,ITY<  3),ICSSM( 

3 108,  2) 

COMMON/P  5/YK ( 1),YN(  1),SK(  l ) , S* ( 1)»EY1  l),SG«  1) 

C0MM0N/R2/PI l 12,  l,  3), 331  108,  2), Cl  14,  6),HN1  10",  6),N0M(  14, 

1 6) 

C0MM0N/A6/UPZ 1 40,  sO),ZZI  72,  3),Btl  108,  3),W<  72), HI  108), VVl 
l 156),  Y1  108,  3), Mil  24,  3) 

CCMMON/Cl/XEIGl  72,  2),YXEIGt  72,  2),WS1  2),DM(  l,  l),IET(  7) 


C*  GE ‘1C RATES  SENSITIVITY  VECTOR  HI  NV  ) FOR  FREQUENCY  CONSTRAINT  * 

;«■  FREQ  - NATURE  FREQUENCY  OF  THE  STRUCTURE  * 


C*  RFT  - FREQUENCY  LIMIT  * 
C*  SK.  - EIGtN  VECTOR  1NCC)  * 
C*  W - STORES  Cl  K* Y - F*M*Y  )/U  B1I)  * 
~^******** ***************************************  *********  ************** 


1.  D = 0 


index*  1 


NCX  = RNl. 


SUM=FDEN*RFF 
DO  106  K = l , N SO 


CALL  VARI(K) 

DO  80004  111=1,3 
I F ( I T Y l I II ) . EO. 0 ) GO  TO  80004 
M A = 0 
L [)  = L f 1+  1 
NGK  = NG1  L l) ) 

DO  100  KK= 1 , NGK 
N J J=  NOM ( KK , L 0 ) 

MV= IGRT1 KK.LD) 

ITIMV.EQ.O)  GO  TO  170 
DO  102  J = 1 , NCC 
102  W I J ) =0. DO 

00  80  IM=1,NJJ 
MA=M A+  1 
Ml=MN<MA,LD) 

XX  = BE1MI  , I I I I 

IFI  XX.EO.O.O)  GP  Tl  80 
XX  = 1 .0 

CALL  RECALL  1 II  I ,LE,I.  S,LF,  INDEX,  MI  ,XX  I 
03  70  I =LS,LE 

1 J = NNOC 1 LF+ I ) 

IFI  I J.EU.O)  GO  TO  70 
IFIIJ.LC.NI)  I4=NZ:1IJ,K) 

IF1IJ.GT.N1)  1 4 =NCX ♦ I J-NI 
DO  60  J*LS,LE 
I L =NNOC 1 LF* J ) 

IF! IL.EU.O)  GO  TO  60 
IF1IL.LE.NI)  I 4 *NZ„ 1 I L , K ) 

IFI  IL.GT.N1)  I 5=NCX* I L-Nl 

Ml  14 )=WI 14 )♦ (ESF 1 I , J ) -FREQ*B1 1 1 , J ) I ♦ XE I G 1 1 5 , l ) 

60  CONTINUE 
7C  CONTINUE 
Kfi  CONTINUE 


h ( mv i = o.do 

00  90  Jsl.NCC 


90 

H ! M V ) = HI  MV)  -fW!  J I *XE  I 

H1MVI*  H! MV) /SUM 

SO  TO  100 

1 70 

MA  = M A + N J J 

IOC 

continue 

8 non  a 

CUNT INUC 

NCX=NCX+NC I 

106 

CONTINUE 
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RETURN 

END 

SUBROUTINE  ZD/ICF!i:>C,ISPSP,IPS,!PD)  SUB 

IMPLICIT  REAL  *8  (A-H.U-Z) 

INTESFR  SIZE.BNC.SJ 

COMMON  STCP.BNO.SN, NBW.Sl ZE.NLC.NSU 

COMMON/ V I /N I ,NC I ,NW)  ,N3K, MA.NUl , NU2 , NU3 , Ml , NB , N JK, NC , N 1 1 , I SO,  U)l 
COMMON /V2/NIC!  3),l«'l  6 ) , NO  ( 6),NBWl!  3),NBW2!  3),Nf!W3<  3>,NM!  6), 
INRJI  3 1 , N J ( 3),NC&!  31, NEW!  3), IQS!  3I.MEBI  6),MEF!  6> 

COMMON/P  l/Bl ( 9,  9>,B2<  9,  9I.B3I  9,  9),ESF<  9,  9»,NA!  156), NIK  9 
1 ) «N J 1 ( 9 ) , NJ  2 ( 9) 

C0MMQN/P2/XNUUI  IA,  fa),ELL(L08,  ?>,0U!  1A,  6)  .STRESS  I 1620)  , TCSMI 
1 166), TRCSSPI2308), XCOSTI  3),ICSS(  108,  2),ISACI  108,  2»,INDC<  108 
2,  2 ) , I OR  T ( LA,  6 ) , I G R f:  ( 108,  2>,NNDC(  1080), LLN(  3 ) . I T Y f 3),ICSSM( 

\ 108,  2) 

COMMON/P 3/EVECI  1,  ll.RRF!  7),R0LIMI  7I.RSL!  7I,RSU(  7),RL0AD<  7) 
l , RCDUC!  90 ) , NDOF ( 7),N0M<  90),NBDAM<  6,  6),KIIDAM(  3,  7) 

C0MMQN/R2/PI ( 12,  1,  3),RR!  108,  2),L(  IA,  6),MN!  10°,  6 ) , NOM ! 1A, 

l 6) 

COMMON/A  l/0(  1?,  2A,  3 ) , Z I ( 1 2 , 1,  3),C(  36,  2A),ZB(  36,  l) 

COMMON/ A 3/BR  ( 1C8,  2),TRSF(  108,  l),CSTMA8,  1,  A),SSPF(  1,  1,  3), 

IZ(  51,  3 ) »OZE  ( 60),r'P(  108,  2), NO!  216) 

COMMON/AA/XI  108,  U.OLPI  60),1)LPH(  60I.TI  156), WM(  5l),R0(  51) 
C0MM0N/A5/0I  36,  2A),US1  36,  50),A2<  36,  50  ) ,DKI(  12 , 36 ) , KIIU8W!  3) 
C0MM0N/A6/0PZ!  50,  60),ZZ(  72,  3),0L(  108,  3>,W!  72), HI  108), VV< 

1 156), YI  108,  J ) ,NZO  1 25,  3) 

THIS  SUBROUTINE  COMPUTES  NODAL  DISPLACEMENTS 
AND  MEMBER  FORCFS/VON  MISES  COUIVALENT  STRCSS. 

36  FORMAT! A6X, 'FORCE  MATRIX  FUR  TRUSS  ELEMENTS ' /A5X CLEMENT  FORCE  I 


* ♦ IS  COMP. ) • ) 

36  F0RMATIA5X, 'STRESS  MATRIX  FOR  CST  ELEMENTS' /A5X, 'ELEMENT  SIGMA-X 
*,  SIGMA-Y,  TAU-XY,  VON  MISES  STRESS') 

37  FORMAT! A5X, • ST1ESS  MATRIX  FOR  SHEAR  ELEMENTS' /A5X, • ELEMENT  TAU-XY, 

* VON  MISES  STRLSS'I 

38  FURMAT!A5X, 'STRESS  MATRIX  FOR  SSP  E LEMENT S ' /A5X , • F LEME NT  SIGMA-X 
*,  TAU-XY,  VON  MISES  STRESS') 

39  FORMAT! A5X, 1 5,AE 15.  >) 

AO  FORMAT! A6X, 'LOADING  CONDITION*  *,I5) 

A2  FORMAT! 3X,I5,AX,6E16.6! 

AJ  FORMAT! 'O', • ***NOUAL  DISPLACEMENTS  FOR  K=',I2/'  1ST  28  THEN  ZI 

♦ FOR  ALL  NLC.  ' ) 

68  FORMAT!/'  ','  ♦**F0  ’.CE/VDN  MISES  STRESS  FOR  K=',12,',  III*',I2,', 

♦ ITY!  I ! I ) = • , I 2, ' , LDC*' , ! 2) 

LDC* IDL- l 

DO  30  3 IM.BNC 
DO  302  L = 1 , NLC 

302  DS( I ,L ) *ZB! I ,L  ) 

DO  303  J = l ,NBW 

303  C! I, J )*D!  I, J ) 

CALL  SOL  DUP (NLC,NBW,BNC) 

DO  305  J * l , NLC 


THIS  PAGE  IS  BEST  QUALITY  PRACTICAByi 
FROM  COPY  FURBISHED  TO  DDQ  . 


03  305  I =l*BNC 
JOS  Z B ( I t J ) =DSC  I , J) 

LL  = 0 

LVJ  777  K = 1 * N SU 
CALL  VARKK) 

DO  316  J=l,Nl 
Ll=NZC< J,K) 

DO  316  L = l , NLC 
316  ZZ( JfL ) = ZB  I L I,L  > 

IF(MCI.EO.O)  GO  TO  321 
DO  310  L=1,NLC 
DO  3 1 fa  J = 1 » N l 
DC!  3 1 B 1=1, NCI 

111!  Z l ( I ,L,K . I =Z  I ( I,  L,K|  ,0(1  , J,K)  *ZZ(  J,L) 

00  310  1=1, NCI 

31  J ZZ(l-f'll,L)  = ZI(I,L,K) 

I F { IPn.CCJ.OVGQ  TO  3.7 
W r<  I T L ( 6 , A 3 ) K 
no  320  1=1, NC 

320  WRITE  (6,62)1 ,( Z/(l , J ) , J = 1 . NLC ) 

321  I F ( IPO.Ey.O)GP  TO  V>7 
WRITE(6,63)K 
DO  363  J = 1 , M 1 

3 50  WRITE(6,62)J,(ZZ(J,JJ),JJ=l,NLC) 

367  DO  777  111=1,3 

WRITE  ( 6,58)K,  i I I , l TY<  I II)  ,LDC 

1 F ( ITY(  IID.EO.r)  ;n  TO  777 
<3A  = C 

L E= I T Y ( III) 

L N = L L N ( III) 

NX=LN+  1 
LL  = LL ♦ 1 
M6=MCB(LL) 

M7=MEF( LL ) 

IF1II  I.GT.l ) GO  TO  326 
DO  325  l 6=M6 , M 7 
L>J  325  L =1 , NLC 
323  TRSF  ( 16,0=0.0 
GO  TO  330 

326  IFIIII.GT.2)  GO  TO  320 
no  327  I 6=M6 , M 7 

DO  32  7 L = 1 , NLC 
00  327  J = 1 , NX 

327  CSTri  16 , L , J ) =0. 0 
GO  TO  330 

320  DO  320  1 6=M6*  M 7 
CJ  320  L = 1 , NLC 
DO  327  J*l,NX 
320  SSPF ( 1 6 , L , J ) =0. 0 
330  00  666  I6=M6,M7 
BX  = BR ( 16,111) 
iriBX.tU.O.O)  GC  TO  666 
L F= I SAC ( 16,111) 

!F(  I II.GT.l)  GO  TO  3 36 
L = INDC ( 16, III ) 

Of)  3 31  J = 1 , L N 
L =L  ♦ I 

VV(  J ) = - S TR E S S ( L ) 


3 31  VV(  J+  3 ) =-VV( J ) 

00  33  3 J = 1 , L E 

1 IrMfjnr  (I  P*.l  3 


I F ( I J.EO.OI  GO  TO  3 33 

xe=vv( j )*rx 

on  3 32  L = 1 , NLC  IBIS  PACE  IS  BEST  QUALITY  PRACXICABJ|| 

332  T«SF(  I4,L)=TRSF(  I'k.LI+ZZlI  J.LIMfl  CXJiPY  tfURjUISHM)  TO  DDC  — 

333  CONTINUE 
GO  TO  666 

3 34  L = I NOC  ( 14,111) 

DO  331  1=1, LN 
l)J  335  J = 1 , L E 
L =L  ♦ 1 

3 3b  B2( l , J )=STRESS( L ) 

DO  340  L =1  ,NLC 

00  3 36  1=1, LN 

TllhO.O 

DC  3 36  J = l , L E 

IL  =NNDC  ( L F -*■  J > 

iri IL.EU.O)  GO  TO  3 36 

TII )=T( 1 )+D2(I,J)*2Z(IL«L) 

336  CONTINUt 

I F ( I I 1 .EG. 3)  GO  TO  338 

VON  = DSQR  T(  T ( ll*TUUT(2|tTt2l-Tlll*T(?(*3.0*TI3l*T(3ll 
DO  337  1=1, LN 

337  CSTFI 14, L, t )=T( M 
CSTFI I 4 , L , L N*  1 ) = VON 

GO  TO  340 

338  IF< ISPSP.EU.OJGO  T 3338 
VON=DABS  ( T(  1 ) ) 

GO  TO  3339 

33  38  VON=OSQRT(  T( ll*T(llt3.0*TI2l*TI2)l 
3339  00  339  1=1, LN 
331  S5PFI I4,L,I ) = T ( f ) 

SSPF( I4,L,LN*1) =V0! 

340  CONTINUE 
666  CONTINUT 

IFC IPS. EG. 0)  GO  TO  777 
I F ( I I I .GT.  1 ) GO  TO  350 
WRITE  (6,351 
DO  349  L = 1 »NLC 
WRITE  I 6 , 40 ) L 
00  349  M =M6 , M 7 

349  WRITE  ( 6 , 39) M , TRSF ( V , L ) 

GO  TO  777 

350  IF! II  I. GT. 2)  GO  TO  352 
WRITE  (6,36) 

00  361  L = 1 , NLC 
WRITC  ( 6 , 4 0 ) L 
DO  351  M=M6,M7 

351  WRITE  (6,39)  w, (CSTF(M,L»l)»I=l,NX) 

GO  TO  777 

352  IF( ISPSP.EO.O)  GO  T C 353 
WRITE  (6,37) 

GO  TO  354 

353  WRITE  (6,38) 

354  DO  355  L = 1 , N L C 
WRITE  ( 6 ,40 ) L 
DO  355  M =M6, M 7 

355  WRITE  (6,39)  «,  < SSPF ( M , L , I > , I =1 , NX ) 

777  CONTINUE 

RETURN 

END 

SUBROUTINE  CONST!  Iu(. , I RUK  , 1 1)  I S,  1 F.UI  S , NSD  ,EP  ,MV , I BU,  I V , I PC,  NTL,  IFS , SUB  1 1 
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l l SPSP,  '40  AM  ) 

IMPLICIT  REAL*8  ( A- 1 1 , 0- Z ) 

I rjTfc or R SIZE*  BMC  , S’l 

COMMON  STEP, BMC  ,SM,flBW,SI  YE  t NLC  • NSU 

C3MM0M/VI  /Ml  ,NC l » MWK , NGK, MA , MUl  ,NU2 ,NU3,Ml , NB  , N JK , NC  , N1 1 « I SO,  IQ  1 
C0MM0M/V2/MICI  3),  IK  6 I , MG  ( 6I.NBWK  3 > • N3  W2  t )),NP.W3(  3),NMI  6), 
l M P J ( 3 ) ( NJ I 3 ) , NCb ( 3 ) , ME  W ( 31 , I OS  < 3I.MCRI  6),MEF(  61 
C3MM0N/P 1/Bl ( 9,  9 ) , B 2 ( 9,  9),B3<  9,  9),ESF(  9,  9), MAI  1561, Mill  9 
ll.NJll  9 ) , N J 2 1 9) 

C3MM0N/P2/XNUUI  14,  6),ELL(100,  ?>,BUl  14,  6 » .STRESS < 1620 ) , I CSM( 
l 156) , TRCSSPI 2808) , XCOST ( 3 1 , I C SS ( 108,  ^ 1 , I SAC  I 108,  2),IN0CI  108 
2,  2 ) * I GK  T I 14,  6 ) , I GRE  ( 108,  2),NN0CC  1080),  LLNI  31 , 1 T Y I 3I,ICSSM( 
3 108,  2) 

CJMM0M/P3/EVECI  1,  1 ) , RT  E ( 7),RDLIM(  7),RSLI  7),RSU(  7),RL0AD(  7) 
1 , REOliCI  90  ) , MDDF  I 7 ) , MOM  ( 90),NBDAM(  6,  6 ) * K 1 1 13  AM  ( 3,  7) 

C3MM0 N/P4/INFI  50,  8),MGV<  14,  6), 1. 01  50),N0ISPI  72) 

COMMOM/R  1/BL ( 14,  hl.DLIBI  36) 

C0MM0M/R2/PI I 12,  1,  3),RR(  108,  2), El  14,  6),MN(  10P,  6),N0M(  14, 

1 6) 

CUMM0M/R4/I ILI  50,  1),KLC(  50),I0KI  3),N0I  l) 

C0MM0N/R5/B I 14,  6),SL(  14,  6),SU(  14,  6),DPBI  51,  50),0LIM(12,  3) 
l, SSI  51) 

COMMON/A  1/QI 12,  24,  3),ZII12,  1,  3), Cl  36,  24),YBI  36,  1) 

COMMO'!/  A 3/RR I 108,  2),TRSEI  108,  1),CSTFI4B,  1,  4),SSPFI  1,  1.  3), 

1/1  51,  3 1 , D Z E I 60 ) , M P I 108,  2),ND(  216) 

C3MM0M/A4/XI  108,  )),DLP(  60),DLPHl  60), Tl  156), WM ( 511, RO I 51) 
COMMOM/A  5/D  I 36,  2K,L>S(  36,  40),A2I  36,  50  I ,0K  I 1 1 2 , 36  ) , K I IDBWl  3) 
CJMMCM/A6/0PZI  50,  ' > 0 > , Z Z 1 72,  3),BL1  108,  3),W(  72), HI  108),  VV  ( 
l 1 56  1 , V I 108,  31.MZCI  24,  31 
80  FORMAT  I //*0* , • CONSTRAINT  VIOLATIONS  FOR  I DC* • , I 5 » 

I V = 0 

L DC  = IOC-  1 
LL  =0 

IF! IPC.CU.01  GO  TO  199 
WRITE  16,80)  LDC 
199  03  200  1=1, MSI) 

MAI  I 1=0 

DO  200  J = l , BMC 
2CC  A2 I J , I 1=0.0 
I MM  = 0 

I r f IBOIS.EO.O)  GO  TO  84 
DO  168  I = 1 , BMC 
DZEI  l 1 = UL IB  I I) 

DO  168  L «l»MLC 
168  ZZ(I,L)=ZU(I,L) 

< = -l 
16  = 0 
MMM  = BMC 

CALL  ABSMAXI K,NNN, IMN,16,MS0,I V.LDC , I PC, EP, NOAM) 

IFISIZE.LT.I NSD-NOAM- 1)130  TO  B4 
WR I T E I 6 , 53 ) SIZE, MSD, NIL 
RETURN 
84  IMM=BMC 

DO  999  K = l , NSU 
CALL  VAR  I ( K ) 

16*0 

IFIMCI.EO.O)  G3  TO  202 
OG  201  J = l , NSD 
DO  201  1*1, MCI 

20 1 US( I , J ) *0.0 

202  03  888  111*1,3 


I F ( I T Y ( III  >.EO.O)  C.P  TO  088 

IF(IPC.EO.O)  GO  TO  203  THIS  PAGE  IS  BEST  QUALITY PRACTICABIji 

WRITE!  6.68)  K * I I I JBQB  OQPY  JUKMSH&Li  TO  DDC  --- 

203  1A  = 0 

LL=LL+ 1 
NGK=NG( LL ) 

IE=ITYI  Ml) 

LN=LLN!  III) 

MX  = L 1 

03  777  KK=1,NGK 
NJJ  = NOM<  KK.LL  I 
T(8)=SL(KK,LL)/RSLIIDC) 
mm.EG.l)  T(9)*C  EM  KK.LL)  /8SUUDC  ) 

DO  444  N = l * N J J 
MA=MA» l 
M=MN(MA,LLI 
NO(M)=p 
R = BR(*3,  III) 

IF( 3 .EU.O.Ol  G3  TO  4*4 
3=1. 0/R 

DO  33  3 L = 1 , NLC 

IF( I II.GT.L)  GO  TO  207 

T(4>=T*SF(M,L  >*R 

IF(T(4)  .LT.O.)  GO  TO  205 

T ( 5 ) =T  t a) 

I F(  I BUK  . EO.O  ) GO  TO  206 
CUC=E(KK,LL>/(GLL(Mf l)**2> 

T( 2)=DUC*R 

IF(T(2).LE.t(5)  ) GO  TO  206 
T ( 5 ) = T ( 2 ) 

NO! M ) = I 
GO  TU  206 
206  T ( 5 ) =T ( 9 ) 

206  T( 6 ) = T( 4 )*T( 5 J 
GO  TO  208 

207  IFim.EU.2)  VON=CSTF(M,L,MX) 

IFIIII.C0.3)  V0N=S5PF ( M , L , NX ) 

TF{ VON. EO.O. DO)GO  TO  444 

T( 5) =0. 5*  T ( 8 ) /VON 
T(6)=VU.4*T<8> 

203  IFIN.GT.l.OR.L.GT.l ) GO  TO  209 
VM*  T I 5 ) 

X L = T ( 6 ) 

IJ=M 

LC=L  •; 

GO  TO  333 

209  IF(XL.GE.T(6))  GO  13  333 
YM  = T ( 5 I 

XL=T(6) 

I J = M 

L C = L 

333  CONTINUE 
444  CONTINUE 

IF(NTL.GT.IFS)  GO  10  210 

IF( IGRTIKK.LL ) . EO.O ) GO  TO  777 

CNEW=XL*R!KK,LL ) 

IFIBNEW.LT.BUKK.LL  ) ) BNE  W = BL ( KK . LL I 
IF! BNEW.GT.BU! KK.LL ) ) BNE W=BU (KK , III 
U!KK,LL  I =BNEW 
GO  TO  7 f 7 

210  IF( ( XL*tP).LT.l . ) .0  TO  777 

■ ~ 1 


; 


211 

21  2 


21  3 


710 

331 
3 32 

3 34 

335 
3 16 


IFINGVIKK.LL  l.NE.J)  GO  TO  211 
SIZE=SI/E>1 

IFISIZC.GT.INSO-NDAM-ll  13U  70  2 14 
NOVI KK.LL  ) = S T ZL 
GO  TO  212 

PQX=l.O-DLPH(NGV<KK, LL)  ) 

IF! XL.LE.PQX  ISO  TO  777 
DLPHINGVIKK, LL  ) 1 = 1. -XL 
01. PI  NGV  I KK.LL  1 1 =DABS<  DLPHINGVIKK, LL)  ) ) 

KL  C ( NGV (KK.LL ) ) = LC 
I V = I V ♦ 1 
M A ( I V)=0 

not  I V 1 =NGV  ( KK » LL  ) 

IGR  = IGRTIKK.LL ) 

I BUL  =0 

IFIIGR.EO.O)  GO  TO  213 

SSI  I 031  = 1.0 

[FIND!  IJ  l.EO.O)  GO  TO  213 
BUC  = L(KK*LL  I / C t L L ( ( J*  11**2) 

Tl 2 1 =BUC/BR|  I J,  I 1 1 1 
IFITI 2)  .LC.T  | A)  ) GO  TO  213 
1 fMJG  = 1 

BE  I IV, 1 1 =- XL /BR  C 1 J,  111  1 
NAI l V 1 = I GR 

INF! NGVI KK.LL  1,  11  = 1 J 

IMF ( NGVI KK , LL 1 , 2 1 =K 

l.MFI  MGVIKK,  LL  1,  31=111 

INF!  MGV  I KK,LL  1,  <,1=1  GRTIKK,  LL  I 

I NF  1 NOV  I KK  , LL  1 » 5 1 =1  DC 

INF  I NGV ( KK,LL 1 , 6) =! V 

I NF ( NGV I KK,LL 1 » 7 1 =L G 

I NF  ( NGV  ( KK,  LL  ),8)=f  P.UC 

N0<  LC  1=  1 

IF(MP|  IJ,  I m.EQ.-t  I GO  TO  710 
[6=16+1 
I I L ( 1 6 , K 1 = I V 
LF=  I SAC  ( IJ,im 
L = I N DC ( I J,  l II  1 
I F ( III ,GT. 1 1 GO  TO  132 

00  331  J = l,LN  ; . 

L =L ♦ 1 ' . 5 

VV( J)=-STRESS(L  1 

VV( J +3 1 =-VV ( J 1 

GO  TO  336 

0.0  3 34  I = l , L N 

DO  334  J = 1,L  E 

L =L  ♦ 1 

B 31  I , J 1 = STRESS(  L 1 

IF! I II. EQ. 31  GO  TO  335 

Xl=?.0*CSTFI IJ,LC»1)-CSTF(IJ,LC,2) 

X2*2 .0*C  STF ( IJ,LC,2)-CSTF( I J , LC  , 1 I 
X3=6.0*CSTF( I J , LC , 31 
GO  TCI  336 

X1=2.0*SSPFI  IJ.LC.l  1 
X2  = 6 . 0*  S SPF ( I J, LC • 2 I 
DO  714  J=1,LF 
L J = NNDC( LF+J  1 
IFILJ.EO.O)  GO  TO  714 

i f i i ii.fu. n r = vm*v v i j i 

IFim.L0.21  K = YM*(  X l ♦ B 3 < 1 , J)  +X2*B3  (2  ,J)+X3*B3(3,J)  1 
IF( I II.FU.3)  R=YM*( X l*B3l  l , J 1 +X2*03 ( 2 , J 1 1 

i-'O 


- - ■ 


I F ( II I.E0.3. ANU.ISPSP.NL. 0)R=YM*( XI *B3(i, jll 
IFUJ.GT.N1)  GO  TO  Ml 
L l = NZC ( L J*K ) 

A21L  l, I V ) =A? ! L l , l V) *R 
GO  TO  7 LA 
711  IR*LJ-N1 

DSl  IR,  1 6 ) = 0 S I I R * 16)  ♦!< 

DO  71?  1=1, VI 
Ll=MZC<  1 1 K ) 

712  A2  I L 1, IV)=A2(L1 ,IVI ♦ R*0  ( I R * l » K ) 

71  A CONTINUE 

IF(IPC.EO.O)  GO  TO  777 
1SIZ=NGV(KK,LL ) 

WRITE! h, 67) I SIZ , l V, 16,1 J.MP ( I J, I III  ,LC,XL,0LPH1 ISIZ ) 

777  CONTINUE 
888  CONTINUE 

IF(NTL.LE.lFS)GO  Tj  999 

go  rn  *o7 

2 1 A SIZE  = SIZL-1 

WRITfc(6,53)  SIZE,  ‘,S0,  NTL 
GO  TO  600 

567  IF!  IOIS.EQ.O.OR.NCI  .EQ.ti)  GU  TO  600 
DO  126  I =1 ,NC I 
D7.  E ! I ) =DL  IM(  I , K ) 

00  125  J = l , NIC 
126  ZZ!  I , J ) = Z I ( I , J , K I 
NNN  = NC  I 

CALL  A3SMAX I K ,NNN» I NN» I 6, NSD  * 1 V »LDC  » I PC  * EP  * NOAM) 

60C  I OK ( K I = I fc 

IEU6.EQ.0I  GO  TO  998 

I U = K l I UBW(  K 1 

DO  8 5 J = l,  NU  3 

I U= I U+ 1 

00  8 '»  I = 1 , NC  I 

89  o( i, j i =opc( r , ru I 

CALL  SOL  UUP ! I6,NU3,NC1  ) 

00  8 7 J = l,  16 

1 7*1 IL ( J,K) 

OJ  87  1=1, NCI 

87  DP/ < I, I 7 »=0S  I I , J I 

WRITE! 6,  31 1 ) ( ( OS! I , J ) , 1=1, NC I I , J= 1,16) 

63  FORMAT! /IX, • SIZt  =',IA,»  INCREASES  NSO  =*,IA//IX,'  CORRECT  ONLY 
1 THESE  CONSTRAINTS  AT  T4IS  CYCLE*, IA) 

67  FORMAT! 2 X , 6 1 A , 21  l 6.  j ) 

68  TORMAT!  • STRESS  VIOLATIONS' ,215  / 3 X,  'SIZE  IV  lb  H MX  l.C  XL* 

♦ I 

998  IF! SIZE . CQ.NSD ) RL’URN 

999  CONTINUE 
RETURN 
END 

SUBROUTINE  ABSMAXIK.NN, INN, I 6, NSD, I V,LDC, I PC, EP, NO AM) 

IMPLICIT  REAL  *8  ( A- H, 0— Z J 
INTEGFR  SIZE, (INC, Si 

COMMON  STEP,BNC,SN,NBW,SI Zt,NLC,NSU 

COMMON /V 1 /N I , NC I ,NWK , NGK, MA , NU1 , NU2 , NU3 , Ml , NB , N JK, NC , N 1 1 , I SC, I Q 1 
COMMON/PA/INFI  SO,  8),N3VI  LA,  6),IN0!  50),N0ISP<  72) 

COMMON/KA/I IL ( 60,  3),KLC(  60), I OK ( 3), NO!  1) 

COMMON/A  1/0!  12,  2A,  3),ZI(12,  l,  3), Cl  36,  ?A),ZBI  36,  l) 

COMMON/ A 3/BR ( LOB,  Z),TRST(  108,  l),CSTF(A8,  l,  Al.SSPFI  l,  L,  31, 
1ZI  51,  3 ) ,DZE I 60),MP(  108,  2),ND!  216) 

COMMON/AA/XI  108,  JI.OLPI  60),()LPH(  601, T<  156),  WMI  51),RD(  51) 


I- 

1 


CDMMUN/A  6/0  ( 3<>,  24), OS!  36,  60),A2t  36,  50  ) ,DKI  ( 12,36)  » K I [U0M(  3) 

COMMON /A6/DPZ!  50,  >0),Z7!  72,  3),BH  108,  3),W(  72), H(  108), VV< 

1 156),  Y<  108,  3),N/>:(  24,  3) 


C* 

C* 

c*< 


THIS  SUBROUTINE  - 

(I)  CALCULATES  MAX  DISPL  UNDER  ALL  NLC , 

12)  CHECKS  DISPL  CONSTRAINTS  ANU  COMPUTE  SENSITIVITY 

informat ion. 


* 

* 


)14 
i 1 5 


5i  FORMAT! / IX, • SIZE  =*,14,*  INCREASES  NSD  =',14//1X,*  CORRECT  ONLY 
i these  constraints  \t  this  cycle*, i4» 

TORMAT! 2X, 514, 2E  15.  *) 

FORMAT! 3X, ‘DISPL.  V I OL ATI ONS * , 1 2/3X , • S l ZE  IV  16  NC  LC  XL*) 

RRITEtO, 315)  K 
DO  16?  I = 1 , NN 
INN* INN*  1 
DO  161  L = 1 » NLC 
T ( 4 ) =ZZ  ! I , L ) 

T ( 5 ) = OZE!  I ) 

IF! T (4)  .LT.O.  ) T( 61 =-T( 5) 

T|6)=TI4)*T(5) 

IFIL.3T.ll  GO  TO  2dH 
YM=  T ( 5 ) 

XL  = T ( 6 ) 

L C = L 

GO  TO  161 

IF!  XL.GE.TI6)  ) GO  T.i  161 
YM=  T ( 5 I 
XL=T ! 6) 

LC  = I 

CONT  INIJC 

IF!  ( XL*FP).L  T.l  . ) ,i.  TO  162 
SIZE=SIZF*l 

IFISIZE.GT.I  NSD- NOAM-  1 ) ) GO  TO  2 59 
N01SP! I NN )*S I Zt 
ULPHINUI  SP!  INN)  )»1.G-XL 
OLPINOI SP! INN)  )=OAES !DLP HIND  ISP! INN)  ) ) 

KLC!  NDISP!  INN)  ) =l.C 
IV*  IV*  1 

I NO ( I V ) =NU I SP ( INN) 

INF! NO  I SP! INN), 11=1 

INF (NO  ISP! INN), ?)*K  4 

INFINOISP! INN), 31* 

INFINDISPI INN), 4)* 

INFINOISP! INN), 6)*L0C 
INFINOISP! I NN ) , 6 ) * 1 V 
INFINOISP!  INN),  7 ) =L  C 
INF!NDISP( INN), 8 ) *0 
ISIZ*NOISP( INN) 

NO!  L C ) = l 

IFIK.EO.-l)  GO  TO  96 
16*16*1 
I IL ( 16, K ) = I V 
DO  158  J=l,Nl 
L 1*NZC!  J,K) 

168  A2!L 1, I V )*A2(L l , I V ) * YM*0( I , J,K) 

OS! 1,16)  =YM 
GO  TO  97 
) 6 A2 ! I , I V I =YM 

9 7 IF!  1 PC  . NE  • 0 ) WRITE(6,314l  1 S I Z , I V,  I 6 , 1 ,LC  , XL 

162  CONTINUE 

'-it 


2 58 


16  1 


212 


RETURN 

2Sj  SI/E*SIZE-1 

WR  I T E I 6 * 63  I SIZE  * NS1 ' » NTL 

RC  TURN 

END 

SUBROUTINE  GENC ( NSC , NV, l X , l BU , 1 BUK , l V , I DC ) SUB  13 

IMPLICIT  REAL*8  (A-H,0-/> 

INTEGER  SIZE, BMC, SN 

COMMON  STEP»BNC , SN, NOW, SI ZE,NLC,NSU 

C3MM0N/V l/Nl ,NC I ,NWK,NGK,MA, NUl , NU2 , NU3 , Ml , NB , N JK, NC , N1 l , l SQ, 101 
COMM ON /V2 /NIC!  3),JWl  6 1 , NO ( 6l,NBWl(  3»,NBh2(  l),N 8W3I  3I.NMI  6), 

1NBJI  3I.NJI  3J.NCBI  3), NEW!  3),IQS<  3I.MEBI  6I.MEFI  6) 

COMMON/P  1/Bl  ( 9,  ))  , B 2 ( ?,  9I.B3I  9,  9I.ESFI  9,  9),NA(  1561, Nil!  9 

1 ) , N J 1 ( 9 ) , N J 2 ( 9) 

COMMON /P2/XNUUI  14,  6),ELL(108,  2), GUI  14,  6 ) , STRE  SS  I 1 62  0 > , T CSM I 
1 15fa),T«CSSP(  280e>, XC3STI  3),1CSS(  108,  2 » , T SAC  t 10R,  2),INDCI  108 
2,  2 ) , I GR  T I 14,  6 ) , I GRE I 103,  2I.NNDCI  1080), LLNI  3 ) , I T Y ( 3),ICSSM( 

3 108,  2) 

COMMON/P4/INFI  SO,  8),NGV(  14,  6), I, NCI  60I,NDISPI  72) 

C0MM0N/R2/PI I 12,  1,  3),RR<  108,  2 ) , fc < 14,  6),MN(  108,  6),N0M|  14, 

l 6) 

CUMM0N/R4/I ILI  60,  3),KLC(  50),IOKl  3), NO!  1) 

COMMUN/RS/BI  14,  6),SU  14,  6),SUI  14,  6),UPBI  51,  >0),DLIM(1?,  3) 

1 , SS  * 611 

COMMON/A  l/U ( 12,  ?4 , J),ZI(12,  1,  3), Cl  36,  24),ZBI  16,  l) 

COMMON/ A 3/BR I 108,  21.TRSFI  t08,  ll,CSTF(48,  l,  4I.SSPFI  1,  1,  3), 

1ZI  51,  3 ) , D Z E ( 60),f'P(  108.  2),ND(  21h) 

COMMON/ A4/X ( 1C  8 , U,OLP(  60),DLPHI  60), Tl  156), WM(  51),R01  51) 

C0MMUN/A5/DI  36,  2s),DS(  36,  50  ),A2  ( 36,  50 ) ,DK I I l 2 , 36 ) , K I I UBWI  3) 
LOMMON/A6/DPZI  50,  »0),ZZ(  72,  3),Btl  108,  3),W(  72), HI  1081, VVI 

l 1 5t>  ) , Y I 108,  .3  ) , NZ  C l 24,  3) 

COM«ON/A7/OPXI  62,  60) 

r fr*********************************************************** *********** 


C* 


THIS  SUBROUTINE  - COMPUTES  CAP  LAMBDA. 


I NOE  X = 0 


I VV  = IV  + LX-1 
IF! IDC.GT.l)  GO  TO  /7 
DCJ  76  I =LX,  S l ZE 
DO  7 6 J = 1 , NV 
76  DPXI J, I ) =0.00 

00  TC  76 

77  OC  78  ll=l,lV 

1 = I NO!  I I ) 

DO  78  J=1,NV 

78  DPXI J,  I ) =0.0 
76  DO  79  I I =1, IV 

1= I NCI  l 1 I 
I GR  = N A I I I ) 

IFIIOR.CQ.O)  GO  TO  79 
DPXI  I GR  , I )=REI I I , II 

79  CONTI NUL 
LO  = j 

DO  71  K * 1 , NSU 
CALL  VARI(K) 

00  71  111=1,3 

1FI  I TV  I I ID.EO.O)  GO  TO  71 

M A = 0 

LD=L  D* 1 

NGK=NG(  LDI 

IF(NCI.EO.O)  GO  TO  210 


THIS  PAGE  IS  BEST  QUALITY  FRACTLCA&yi 
FROM  COPY  FURBISHED  TO  DDQ  

u;»  7 77  KK  = t * NGK 
NJJ=NOM( KK,LD  I 
MV=  I G,<T  ( KK  , L 0 ) 

IF(MV.EQ.O)  GO  TO  1 70 
DO  73  LC=1*NLC 
I F ( NO  t L C ).EO.C)  GO  TO  73 
UO  7 4 1 = 1, Nl 
74  SCI  l.LC  )=0.D0 
7 3 CCINTINUL 

U j 6 66  I M=  l * N JJ 

133  = 0 

Jf»  = 0 

MA=M A* 1 

Ml=MN(MA,LD) 

MX=MP(MI,III ) 

XX=B<(MI , I II) 

IF!  XX. EQ. 0.0)  3D  Ttl  666 
XX = 1 .0 

CALL  RECALL ( II  I ,LE,LS,LF, INDEX, MI  ,XX) 

DO  707  I=LS,LE 
l I=NNDC(  LF*  I ) 

1 F ( I I .CO .01  GO  TO  7 )7 
I F ( 1 I .GT.N1  I GO  TO  704 
l B 3 = I R 3 ♦ 1 
NA<  I C 3 » = I I 
Jil3  = 0 

DO  70  3 J =L  S , L E 
I J=NNDC ( LFtJ  ) 

I F ( l J.tO.O)  GO  TO  7^3 
I F ( I J.GT  .Nl  ) GO  TO  703 
JB  3=  JB 3+  l 

B 3 < IB3,  JB3)=ESF I I , J ) 

703  CONTINUE 
GO  TO  707 

704  II*II- Nl 
JP  = JP*  1 
Nil!  JP)Ml 
J T =0 

JU=0 

DU  706  J =L S , L E 
I J = NNDC ( LF*J  ) 

I F ( I J.tO.O)  GO  TG  706 

IF(IJ.GT.Nl)  GO  TO  705 

JT=JT*l 

N J2 ( J T I = I J 

B2 ( JP, J T )=ESF(  1 , J I 

GO  TO  706 

705  IJMJ-Nl 
JU=JU*l 

N J 1 ( JU  ) = I J 
B1IJP, JU  )=ESF( I , J) 

706  CONTINUE 

707  CONTINUC 

DO  124  LC=l , NLC 
IF(NOILC).EQ.O)  GO  TC  124 
I F ( IR3.E0.0)  GO  TO  SO 
DO  12  3 J = 1 , 1 B 3 
J l*NAI J ) 

L 1 *NZC ( J 1 ,K  ) 

D O 12  3 1=1,  I T3  3 


J2=NAI I ) 

BEIJ2.LC  >=BEI J2 ,LC)-R3( I , J ) *ZR I LI , LC 1 

IFCMX.E0.-II  GO  TO  124 

DO  510  J=1,JP 

L ( J,  LC ) = 0.D0 

IF(JT.EU.O)  GO  TO  511 

DO  11R  J=l,JP 

J 1 =N  I 1 C J ) 

DO  118  L=1,JT 
J2=N J2( L ) 

L 1 = NZC ( J2iK ) 

Z( J.LC)=Z( J,LC)-R2t J,L)*ZB(Ll,LCI 
DC  122  1=1, JT 
J2=NJ2I  I ) 

DO  122  J=1,JP 
J 1 =N  1 1 ( J 1 

REC  J2,LC1*BE(  J2.LCI-B2I  J»I  »*ZM  JltLCtK) 

00  116  J=1,JP 
DO  116  L = l , JU 
J 2 = N J l ( L ) 

Z(J,LC>=Z(J,LC)-BKJ,L)*ZI(J2,LC,K) 

DO  125  1=1, Nl 
DO  125  J=1,JP 
J1=N1 II J I 

BE  C I,LC)=BE(  I,LCHQ(Jl,I,K»*Z(J.LC> 

CONT  INUr 
1 6= I OK ( K 1 

IF( I6.EQ.O.OR.MX.EU.-11  30  TO  666 
DU  6 14  1 = 1, 1 6 
IZZ=  III ( I ,K  » 

IZ=IN0( tZZl 
LC  = KLC ( 1Z) 

DO  514  J=1,JP 
J l = N 1 1 ( J ) 

DPX(MV,IZ)=DP)f(MV,W»*ZU,LC)*OPZ(Jl,IZZ> 

CONTINUE 

DO  117  I 1 = 1, IV 

1 = i no 1 1 r ) 

LC=KLC ( 1 1 

DO  117  J = l , N l 
L l = NZC 1 J ,K 1 

DPX ( MV , I 1 = DPX( MV « I ) ♦ BE ( J , LC ) *DS(  L 1,11) 

GO  TO  777 

NA=M4*NJ J 

CONTINUE 

GO  TO  71 

WHEN  NCI  IS  ZETO. 

CO  889  KK  = 1 , NGK 
NJJ=NOM(KK,LD) 

MV=IGRT(KK,LD1 
IFIMV.EO.O)  GO  TO  720 
DO  880  I M= l , N J J 
L *0 

MA  = N A* 1 
«M*MN(MA,LD) 

XX  = RR ( M I , I I I ) 

I F ( XX. EU. 0.01  30  TO  888 
XX=l  .0 

CALL  TEC ALL  I III  ,Lfc,LS,LF, INDEX, MI ,XX) 

DO  714  I =L  S * LE 
I I *NNDC  C L F ♦ I » 

! f)  ! 


7 I 2 
7 1 A 


l *»6 

200 


l^u 
8 8R 

72J 

8BN 

71 


c ionc' 
C 10 

r ion) 


irm.EU.Qi  r.n  ru  7i<v 
L =L  ♦ 1 
NAIL  > = I 1 
M = 0 

irj  7 12  J =L  S * L r 
I ,I=NNDC  ( L F J ) 

in i j.eq.oi  on  tp  712 

M =M  ♦ l 

81 (L,M|=CSF(  l,J  I 

CCNT INUt 
CONT INUc 
i)’l  200  LC=l,NLC 

imoiLC  i.no.o)  to  200 

JO  l 56  l = l,L 

pr.  1 1 ,lc  » =o.no 

no  r.7.  j = 1 * l 

J2=NA( J ) 

L2  = MZC<  J2.K  ) 

PEI  I ,LC  l=f)C(  I,LC  >-K III , J)*ZB (L2  ,LC) 

CONTINUE 
no  1‘jB  i 1=1,  iv 

1= IN0(  I I I 
LC  = KLU  I ) 
l?J  118  J = 1 , L 
J 2 = N A ( J I 
L2=NZCI J2,K ) 

OPX(MV,|)=  D P X I M V » I ) ♦ DEI J»LCI*0S(L2tlI I 

CONT  I'JUl 

go  rn  889 

MA=MA»NJ J 

CONT  nut 
C-<NT  I *f U ( 

DO  1000  J = l X , S I 7C 
WRITE* 6,  1001  ) J 

WRITElh,  LO I (OPXI [ , Jl ,1 =1 ,NVl 

T JR  M A T I IX » • CAP  LA  f DA*TRANSPCSE'/HX,10E12.A)  ) 
FORMAT ( JX, 'SIZES', I J) 

RETURN 

END 


THIS  PACE  IS  BEST  QUALITY  PRACTICABI4 
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SUDRUUT I NC  DEEP fc I I J , NOC , NV»  * ) . SUB  IA 

IMPLICIT  RE AL*8  (A-H.O-Z) 

UTEGFR  SIZE.B'IC,  SN 

COMMON  STtP,BNC  ,SN,1BW,SI  ZC ,NLC.NSU 

COMMON /R N/B I 1 A , OI.SLI  1A,  6),SU(  1A,  6),JPB(  51,  50),DLIM(12,  3) 

I, SSI  511 

COMMON/ A 3/8R ( 108,  2),TRSF1  108,  l),CSTF(A8,  1,  A),SSPF(  L,  1,  31, 

1Z(  51,  3 I , 0 Z C I AO  I , IP  ( 108,  2),NDI  216) 

COMMON/ A A/X I n 8 , ll.DLPI  AOI.OLPMI  60), T(  156), WM(  5l),R0(  51) 

COMMON/A  6/OP  Z I 50,  ->  0 ) , Z Z ( 72,  3),BI(  108,  3),WI  72), HI  108), VVI 

l 156), Y(  108,  i),NZr.{  2 A,  3) 

**************************************  ******************************* 

Z*  THIS  SUBROUTINE  co:  putes  delta  b vector,  i.c.  changes  in  design  * 

c«  VARIABLES.  L A GRA  1GE  MULTIPLIERS  AKC  COMPUTED  AND  THEIR  SIGNS  ♦ 

C+  ARE  CHECKED.  CONSTRAINTS  CORRESPONDING  TO  NEGATIVE  MULTIPLIERS  * 

C*  ARE  TAKEN  OUT  UF  Til,.  VIOLATED  CONSTRAINT  SET  ♦ 

Z*  IJ  - NO.  Or  STRESS  C DISPLACEMENT  VIOLATIONS  * 

C*  NOC  - Nil.  OF  DESIGN  VARIABLE  CONSTRAINT  VIOLATIONS  * 

C*  SIZE  - TOTAL  NO.  UF  CONSTRIANT  VltLATIONS  * 

;*  / - DELTA  P,  VECTOR  ON  RETURN  * 

* *****  *******************  *********************************************** 


F 0 R M A T I /IX, 'REOUE*  TED  CHANGLS  IN  CONSTRAINTS  OCL  PHI  • / IA1  I 5,E12. 


mi 

i FORMAT!  /IX, 'LAORA  iGE  MUL  TI  PL  I F RS  • / ( A ( 13  , E 1 2 .A  ))) 

I F ( T J .GT  . Cl  ) GO  TO  AA3 
CALL  DCSVV  ( l J, NDC,  ^V) 

RETURN 
l YM=STfP 

I r I YM.  GT  .0.  ) GO  T'J  '■  66 
YM=l. 

DO  A67  1=1,  NV 
' Z I I , l ) = 0.00 

COMPUTE  RIGHT  HANDGIDE  SIOE  OF  THE  LAGRANGE  MULTIPLIER  EOUATIONS 
. DJ  A68  1=1, NV 
I T(  I I =Z(  I ,1 ) * RO ( I I 
00  2?S  I =1,  I J 
ll ( I ,2 »=-3LPHI I I 
Z7(  I, 1 )=0. 

UO  228  J = l , N V 

. ZZ ( I , I ) = ZZ ( I , 1 l-OP  , ( J, I )*T<  J) 

I F ( IJ. EG. SIZE)  GO  T r 15  0 
UO  A20  1=1, NUC 
< = H(  I ) 

J = I J ♦ I 

17 ( J,?l=-OLPH( J ) 
i ZZ I J, l )=-DZE! I )*Z(K, 1 )*WM(K) 

• CONTINUE 

WRITE (6, 26)  ( I.OLPHlI  ),  1=1, SIZE) 

COMPUTE  (CAP  LAMDA  TRANSPOSE  )*(CAP  LAMBDA  ),(SIZE,'.IZE) 

DO  166  1=1, I J 
00  166  J*I,IJ 
UPZI I, J )=C. 

DO  161  K = 1 , NV 

DPZ  ( l , J ) =DPZ  I I * J ) Kn,B  I K , I ) *DPtt ( K , J ) 

. UP Z ( J,  I ) =DPZ ( I, J) 

COMPUTE  LAGRANGE  MULTIPLIERS 

IF! I J. lO. SIZE)  GO  Tn  A21 

CALL  SOD  I IJ,NDC  ,YM,NV,E205,U59) 

RETURN 
CONT  INUE 

CALL  SOLVELI SIZE.ER  5) 

DO  A2A  l =1, S IZL 
■ T!  I ) =PE(  I,  l ) ♦PL  ( I ,2  ) /YM 
W1*  I T E ( 6 , AO  ) ( T , T ( I ), 1=1, SIZE) 


CHECK  SIGN  OF  L AGRA'.GI 
N = 0 

UO  236  I = 1 . S I /r 

I F ( T « I ) .LE.O. ) GO  T , 

N=N»  1 

ND<  N ) = I 

CONTINUE 

X F « N. CO. SI/E  ) .0  TO  2 
S I Z E =N 
I J = N 

lEIN.LU.O)  RETURN  I 
DO  2 AO  1=1, SI/E 
I F ( I .EO.NOI I I ) GO  T i 
ULPHI  I ) =DLPH(ND  ( I ) ) 
ULP(  I )=l>LPINO<  I ) ) 

ZZ< I , l )=ZZ(NO( I I, I ) 

//I  I , 2 ) = ZZ ( ND I f ) , 2 ) 

00  2A1  J = I , N V 

DPRI  J,  I ) =DI»B(  J,NO(  I ) ) 


MULTI  PL IERS 


,<EXC 


T •' 


?6u  CONTINUE 
GO  TO  159 
25J  CONTINUE 

UO  910  1=1, SIZE 
ZZ ( I , l ) =PE ( 1 , 1 ) 

910  Z?  ( I ,2  )=BE(  I ,?1 
DD  206  1=1, NV 
HE ( I , 1 I =-Z ( I , 1 1 *RC(  I ) 

>'  fc  I 1 ,2)=0. 
in  91?  J=t,SIZL 

0 E ( I , 1 > = BFI  l , ll-DP-1  < l , J )*ZZ<  J,1  ) 
9 12  BE  I 1 , 2 1 =BE  I I,  2) -OP'1  I I,  J)*ZZI  J,2) 
BE  I I » 1 ) =B£ I I » l )*ROt  I ) 

206  BE! I , 2 ) =BE(  I , 2 ) *R0(  I ) 

RETURN 

206  RETURN  1 


THIS  PACE  IS  BEST  QUALITY  PRACTICABIil 
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END 

SUBROUTINE  DL SVVt I J , NDC , NV ) SUB  15 

I MPL  I C I T REAL*8  (A-H.O-Z) 

INTEGER  S l ZE  * B 1C  , 6 < 

COMMON  S TtP , BNC ,SM,NBW,SI ZE,NLC,NSU 

COMMON/  A 3/BR I 103,  2),TRSF(  108,  l),CSTF(68,  1,  6),SSPF(  1,  l,  3), 

IZI  51,  il.DZEI  601, /PI  108,  21, NIX  2161 
COMMON/ A 6/X l 108,  U,0LP1  60»,DLPH(  601,  T<  156), WM{  51),R0(  511 
C0MM0N/A6/DPZI  50,  > 0 ) , Z 7 ( 72,  3),BLI  108,  3),WI  72), HI  108), VV I 

1 1 56  ) , V ( 108,  »),N/G(  26,  3) 

ft********************************************************* ************* 

* THIS  SUBROUTINE  CU'  PUTES  DELTA  B VECTOR  WHEN  ONLY  DESIGN  VARIABLE* 

* CONSTRAINTS  ARE  VIOLATED  * 

******************* **************************************************** 


00  669  l = 1 , N V 
BE!  I , I ) =0. 

BE  I 1,2) =0. 

66  » ML) C I ) = I 

ir  666  1=1, NDC 
< =H(  I ) 

NDI K ) =C 

w(K) =DLPH( I J*  I ) /DZL  I I ) 

BE(K,2)=W(K) 

686  CONTINUE 

DO  651  1=1, NV 

1 FI  NO!  I ) . EO. 0 ) GO  TO  651 
W( I )=-STEP*Z (1,1) 

L* El  I,1)=-Z(I,1) 

651  CONTINUE 
RETUIN 
ENU 

SUBROUTINE  SOD ( I J, NOC , YM, NV , ♦ , * > SUB  16 

IMPLICIT  REAL*3  (A-M.O-Z) 

INTEGER  SIZE, BNC, SN 

COMMON  STEP, BNC , SN.NBW, SI ZE , NLC , NSU 

COMMO  J/R  i/B(  16,  6 ) , SL I 16,  6),SU(  16,  6),0PB(  51,  50),0LIM(12,  3) 

I, SSI  51) 

COMMON/ A 3/BR ( 108,  2>,TRSF(  108,  l),CSTF<68,  l,  6>,SSPF<  l,  1,  3), 

IZI  51,  3 ) ,OZE  I 60 ) , MP ( 108,  2 ) , NO  I 216) 

C0MM0N/A6/XI  10H,  D.ULPI  oO),DLPMI  60),  TI  156), WM1  51), ROC  51) 

COMMON /A  5/0 ( 36,  26  ),DS(  36,  50),A2<  36,  50), OKI (L2,36),KIIURW(  3) 
C3MM0N/A6/DPZI  50,  >0),ZZ(  72,  3),BCI  108,  3),W<  72), HI  108), VVI 

l l 56  ) , Y ( 108,  J I » NZC ( 26,  J) 

* *********** ************************************  *********************** 

* THIS  SUBROUTINE  CO-PUTES  DELTA  0 VECTOR  WHEN  STRESS  £ DISPLACE-  * 


o c . 


MENT  C DESIGN  VARIABLE  CONSTRAINTS  3RE  VIOLATED 


AO  FORMAT  ( / IX  , • L AGR AN  GE  MUl  T I PL  I fc  RE  • / I A ( I ■>  , E l 2 .A  »>  ) 
DO  A 2?  J = l * NDC 
K = H( J ) 

Z(  J, 4 I *1 .OOO/I D/.  ( J >*WV(K) *OZE ( J»  I 
D'J  A//  1 = 1,  1J 

A 2?  DSt  J » l ) =DZE (J) *0^ Nl K, I )*ROIK> 

DO  A?  3 1 = 1,  I J 
DO  A23  J = I , I J 
DO  AA  7 K = l , NOC 

AA7  OPZ  ( I , J ) = OPZ  t I , J)-  :-S(K,I)«=  DSIK,J) *Z(K,2> 

A23  DPZI J, I ) =DPZ ( I, J) 

DO  200  1=1, SIZE 

vvm=zz  1 1,  i ) 

200  rf( I )=ZZ(  1,21 
DO  A25  1=1, IJ 

DO  A2S  J = 1 , NDC 

ZZ I 1 , 1 I =ZZ I I , 1 ) - DC  I J, I )*ZZI I J* J,1 )*l ( J,2) 

A2N  ZZ( I ,2)=ZZ( I ,?)-  D I J,I )*ZZ(IJ*J,2)*Z(J,2) 

CALL  SGL VELI  l J » fc  R R A I 
DO  All  1 = 1, NDC 


<=  1*  I J 

A F < K, 1 1 =VV<  K ) 

RC I X » 2 ) *W( K ) 

DO  A 60  J = 1 , I J 

BEt  * , 1 ) =BE!K, 1 )-  Of l I , J)*BE I J,l ) 

A 60  P,riK,2»=BE(K,?)-  O'.  ( I , J I * BE  ( J ,2  I 
BC(K,ll=PF(K,t)*ZII ,21 
All  DC(K,2l=CE(K,2l*ZII ,2) 

DO  201  1=1 ,S tZL 
201  T( I )=Bfc(  I,  l » ♦RC  1 1 ,2)/YM 

WRITE(6,A0)  II, T( 1 ) , I =1 ,SIZE  ) 

C CHECK  SICN  OF  LAGRANGE  MULTIPLIERS 

'1=0 

DO  A 12  I = 1 , I J 


IFITIII.LE.O.)  GO  T i A 32 
N = N + l 
NQ( N ) = I 
A 32  CONTINUE 

IF(N.GT.O)  GO  TO  As  *> 

CALL  OfcSVVI IJ,N0C,NV) 
RCTUIN 
AAS  JI=IJ 

IFIN.EO.  IJ)  GO  TO  't  3 3 
I J =N 

DO  A 1A  I = 1 , I J 
IF( I .fcd.NDI I ) ) GO  TO  A3A 
DO  A3*,  J = l ,NV 
A3r>  DPBI  J,  I)  =OPB  I J , NO  ( I ) ) 

A 3 A CONTI NUt 
A 3 1 DO  A 36  1=1, NDC 
K*J I ♦! 

IFITIKI.LT. 0.)  GO  TO  A36 
N=N*  1 
NUI  N ) =K 
A 36  CONTINUE 

IFIN.EO. SIZE  I 'GC  T.  A17 
St/.E=N 

ITIN.EO.  0)  RC  TURN  I 


i 


■ j 

./ 


J 

J 


M = NUC  THIS  PACE  IS  BEST  QUALITY  PRACIICABLS 

\inC  = N-IJ  FROM  COPY  FURBISHED  TO DDQ - — 

■in  4)3  i = i, size 
DLPHI 1 )=OLPH(ND I I>) 

ULPI  I )=ULPINOI  I ) ) 

zzi i , 1 i=vvindi  i ) ) 

11 ( I ,2 > =W I NO ( I I ) 

4 3H  CONIIWE 

IF!  NOC.EQ.M.OR .NOC .EO.OI  RETURN  2 
J.l  4 39  1=1,  no: 

J=ND< I+IJI-JI 
HI  I ) =H I J ) 

4)9  UZEI  I ) = D Z l£  I J 1 
RETURN  ? 

Ml  CONTINUE 

OJ  440  1=1, SIZE 
ZZI  I, I » = BE  I 1,1) 

ZZI  I ,2)=PE( 1,2) 

continue 

DO  '►SO  1=1, NV 

r.ei  i , 1 1 = o. 

'►‘>0  PEI  I ,2  ) =0. 

00  44 1 1=1, NOC 
K = H(  I ) 

L = I J ♦ I 

BEU,1)=DZEI  I)*ZZ(L,1)  + WMIK) 

441  BrtK,2I=-DZE(l)*ZZIL,2)*WM(K) 

DO  44 2 I = L * NV 

SM1=0.0UC 

SM2=0.0DG 

00  44)  J=1,IJ 

SMI  = SN1 ROPBI  I , J )*ZZ ( J,  1) 

44)  SM2  = SM2-f>PBl  I,J  )*Z/-f  J,2) 

BE  I I , i ) = -BE  I I , L )-I  SMUZI  l , l ) *R0(  I ) ) *R0(  I ) 

4 4 2 OEI I ,? )=BEI l , 2) ♦SM2*R0<  I ) 

RETURN 

too 

SUBROUTINE  SOLVEL I If  ,ER ) SUB  17 

IMPLICIT  REAL*8  I A-H , 0- Z ) 

COMMON/ A 3/BR I 108,  2),TRSF(  108,  1),CSTF(48,  1,  4I.SSPFI  1,  1,  3), 

1 Z ( 51,  3 I , OZ  E I 60  ) , MP  ( 108,  2»,NI)I  216) 

CGMM0N/A6/DPZI  SO,  0),ZZ<  72,  3), OH  108,  i),WI  72), HI  108), VVt 
1 156), Y<  108,  )),NZC(  24,  3) 

-***************************************«************* ****************** 


C*  GAUSSIAN  ELL IM INATl CN  PROCESS  * 
C*  TOTAL  PIVOTING  IS  USED  * 
C*  OPZ  IS  THE  SQUARE  'ATRIXILHS  OF  EQ.  ) 

C*  MATRIX  ZZ  IS  THE  RMS  06  5QUIT  -N2  * 
i * ZZ  I S SAVED  * 
C*  FINAL  SOLUTION  IS  IN  MATRIX  BE  * 


- *********************************************************************** 

ER=0 .000001 
M = 2 

IFINF.GT.il  GO  TO  7 . 

[FIDPZ I 1 ,1  ) .EO.O.  ) GO  TO  76 
A=l./OPZI  l,  l ) 

HO  7 7 J = 1 , M 
7 7 Biil  1,J)=ZZ(1,JI*A 
GO  TO  999 
74  WRITE! 6, 41)  NF 
00  78  J = 1 » M 


y 


j 

! 


THIS  PACE  IS  BEST  QUALITY  FRACTICABLI 
FHQM  OOP*  PUR#ULSHJ£U  TO  DOG - 


78  DE( I , J I =0. 

SO  TO  ONO 
7-3  'iMpsNr-i 

no  10  1=1, NF 
MO* I > = I 
DO  10  J=1,M 
10  BEI  I,  J )=ZZI  1,  J ) 

DO  <*00  K=1,NMP 
C****  SEARCH  FOR  THE  PIV. I ELEMENT 
18  = 0 
JR  = 0 
A=0. 

DO  20  I = K » NF 
DO  20  J=K,NF 

I F ( DABS  ( DPZI  l , J ))-*.  ) 20,2  0,  11 
31  A=DARS( DPZI  I , J)  ) 

I H=  I 
J8  = J 

2C  CONTINUE 

ir(A-ER)  AO, AO ,A? 

AO  WR l T l I 6 * A1 ) K , I R , Ji 

A 1 FORMAT! IX,  • WHUOPS  DEPENDENT  EOUAT I ONS • , 3 I A ) 
00  A3  I =K , NF 
DO  AA  J = K , NF 
DPZI  I , J > =0. 

IF! I . E(J  . J ) OPZ(  I,  J)  -1.0 
A<i  CONTINUE 

JO  A3  J=1,M 
A3  8E I I , J ) =0 • 

CO  TO  800 

C****  INTERCHANGE  ROWS  AID  COLUMNS 
A2  IF!  IB-K  ) 51, 51,  SO 

50  DO  60  J = K , NF 
A = DP  Z ( K , J ) 

DPZ  ( K,  J ) =DPZ  (I!i  , J ) 

6C  DPZ  ( 18,  J )=A 
DO  6 3 J = l , M 
A = BEIK, JI 
B E I K , J ) = 9 C I I 0 , J 1 
6 3 RE  I 1 1*  * J ) = A 

51  IFIJB-Kl  62,62,61 

61  DO  70  1=1, NF 
A=DPZ(I,K) 

DPZI  1 , K )=DPZ( I, JD  > 

70  DPZI  I » J 13  1 = A 

KEEP  TRACK  OF  COLUMNS 
J=NO I K ) 

NO  I K )=NCI JR) 

N U ( J 9 I = J 

62  A = ()P  Z I K , K I 
K!»  = K i 1 

DIVIDE  THE  PIVOT  ROW  BY  THE  PIVOT  ELtMENT 
DO  80  J*K,NF 

80  DPZIK, J >=UPZIK, J)/A 
DO  8 1 J = 1 , M 

81  rv  E < K , J ) = REIK,  JI/,. 

CM***  PERFORM  ELL  1 M IN A TI U i 

DU  82  I *KP,NF 
A = DP Z I I ,K  ) 

DO  83  J*  1»M 

83  BE!  I , J I « 8E I I, J 1-A*BE IK, J) 


IBIS  PAGE  IS  BEST  QUALITY  PRA.CTICABL1 
FRO*  COPY  JTUKMISHED  10  DDO  — — 


03  R2  J = K * NF 

3PZ  ( I , J » = OPZ  ( I , J )-A*DPZI<» J) 

82  CONTINUE 
'.0.'  CONT  I NUt 

«oo  continue 

I F ( 0A3S  ( DPZ.  ( NF,  NF  ) ) .Cr.EO  GH  TO  50>- 
OPZINF.NT  1 = 1. 

DO  501  J=1,M 
»Jl  BE( NF, J ) =0.3 

DOO  continue 

[53  00  J = 1 1 M 

00  "E I NF , J ) = BE(NF,J)/DPZINF,NF ) 

30  01  L = 1 * M 
03  100  K K = L , NMP 
<=MF-KK 
KP  = K ♦ l 

JO  LOO  J=KP,NF 

mo  P,C(K,l  )=  PE(K,L)-J,'Z(K.*J)*BE(J,L) 

01  CONTINUE 

r.  * <■  * * REARRANGE  the  solui ion  matrix 
03  III  I = 1 1 N F 
b J 111  J = l , M 
111  OPZ  ( I , J ) =BE  ( l , J 1 
DO  110  I = 1 * NF 

on  1 1 o j = 1 , m 
1 10  CEI'IUI  i ) , j ) = o p z u ,J) 

000  RtTU’R  I 
l NO 

SUBROUTINE  SU3SP ( N , ’K , I TM A X , ERR  , I UC  , I 1X8) 

IMPLICIT  Rr\L*8  (A-H.O-ZI 
INTEGl  1 SIZE, niC,  S i 

C3MMUN  STCP,BNC*SN»  .P  W , SI  ZE  , NLC , NSU 
COMMON /V 1 /N  L , NC I ,NWK , NCK, MA , NU1 ,NU2 , NU3 , Ml , NB , N JK , NC , N 1 1 , 1 SO,  IQl 
COMMON/ V 2/N I C ( l),Ni-(  6 ) , NO  ( 6),NI3Wl(  3>,N3W2(  J),NBW3(  3),NM(  6), 

INPJI  3 ) , N J ( 3 ) , NC  0 ( 3 ) , NE  W I 3),I0S(  3),MEB1  6),MEF(  6) 

CUMMON/R  5/R  ( 14,  61  , SL  ( 1 A , M,SU(  14,  6),0PBI  51,  -.0  ) , DL  l M(  12,  3) 

i,SS(  51) 

COMMON/A  l/G(  12,  24,  3),ZI112,  1,  3), Cl  36,  24),ZB(  36,  l) 
C0MM0N/A5/XCL ( 36,  *4),AMAS?(  36,  5,)  ,XM(  36,  50  I , UK  I ( 1 2 , 36  ) , K I TUB 

1W(  3 1 

C0MM0N/A6/0PZ  ( 50,  .0 ) , Z Z l 72,  3),BE(  108,  3)',F(  72),  H(  108), VV( 

1 1 5 6 ) , A ( 108,  3),  JZ.I  24,  3) 

COMMON/C  l/XI  72,  21, Y(  72,  2), Ml  2),UMI  1,  1),IF.TM  7) 
i/Ci/  QUK ( 2,  2),0UM(  2,  2), Q(  2,  2) 

MM  = MK. 

IP=  1 

ML =1.0  25 

1 TER  =0 

I END  = 3 

REl CR  R =0 .05 

IQ=M  IN0(  IP*2,  IP  ♦8,  *.  > 

:,n  to  30 
5 ITERMTER  + l 
C SOLVING  X - BAR 

U COMPUTt  THE  EFFECTIVE  POJNUARY  EIGEN  VECTOR 

33  121  1=1, BNC 
03  121  J = l , I Q 
121  AMAS2I  (,  Jl*0.l)0 
NCX  = BNC 


this  page  is  best  quality  fbacticaBU 

flftQI  OOPY  /UEUU.SHKD  10  DJ>C  


on  101  k = i » nsu 

CALL  VARKK) 

I F ( NC  I . EO, 0 1 GO  TO  101 

nn  10?  i = i , n i 

l i=n;ci I t K i 

DO  10?  L = 1,  10 

QTYI=0.00 

DO  2 0?  J=l,NCl 

I6=NCX*J 

?0?  0TYI='3TYI+G(  J » 1 * K 1*  Y ( I fe*  L ) 

AMAS2(L1,L)=AMAS2(L  l.LM-QTYl 

10?  CONTINUE 

NCX=NCX*NCI 

101  CONTINUE 

IJO  122  I = 1 , BNC 
DJ  122  J=l,lQ 

12?  AMAS?(  I, J)=AMAS2(  I,  Jl+Yll  ,J) 
IFINCI.EQ.01G0  TO  1?4 
no  123  I = 1 , BNC 
DO  123  J = l , NBW 

123  XCLt I « J ) =C  ( I , J ) 


124  CONT  F'JUC 

CALL  50LDUP1  IQ,NBW,!iNC> 
DO  111  1=1, BNC 
DO  111  L=i,  10 
111  X ( I , L 1 =AVAS2 ( I » L 1 


NCX=BNC 

DO  108  K = l , N SU 
CALL  VAfU(K) 

IF(NCI.EQ.O)  GO  TO  108 
IOO=K I IUBW1K 1 
DO  103  J=1,NU3 
100= 100*  1 
DO  103  1=1, NCI 
I F ( I DC.  GT.  1)00  TO  1)4 
XCL  ( I , J I =DK  I ( f,  I QQ 1 
GO  TO  10  3 

IC4  XCL(  l,J)=DPBU,  I0Q1 
103  CONTINUE 

JO  1 O')  1=1,  NCI 
I 6=NCX ♦ I 
DO  l OS  1=1,10 
IDS  AMAS2I I , L ) = Y ( I * L ) 

CALL  SOL  DUP  ( I 0, NU3, NC I 1 

DO  113  1=1, NCI 
DJ  1 14  LI  =1,  10 
DO  1 00  L = l , N l 
L l=NZC(L  ,K> 

OXB=G( I,L,K)*X(Ll,LL) 

C 

AM  AS  2 ( I,LU=AMAS2(I  , LLUQXB 

C 


100  CONTINUE 
114  CONTINUE 


on  no  i = i » nc  i 

I 6=NCX+ I 

d:j  u is  l = i , i o 

X(  16, L > = AMA S2 ( I » L ) 

116  CUNTINUE 

NC  X = NCX  4-NC  I 
ion  CONTINUE 

projected  stiffness  \r<ix  qqk 

on  2 i 1=1,10 

00  21  J=l,IQ 
S = 0.L>00 
1)0  2 2 K = 1 , N 
22  S = S*-X(  K , l )*Y!K,  Jl 
(JUKI  l , J )-S 
21  QQK  ( J,  I) =S 

C INTERMEDIATE  VECTORS  Y FOR  ITER=0,  AN*,  Y-BAR  FOR  ITER  0 
n NN=  SN/2 
18=11 XO 

CALL  M EV  EC ( NN »N  , I DC  » 18,2) 
l F ( ITER  ) 8,8,40 
C PROJECTED  MASS  MATRIX 

on  si  1 = 1,10 
on  4i  j = i , i o 

S  = 0.0  00 
00  4 2 K = l , N 

4 2 S = S ♦ X ( < , I ) * Y ( K , J) 

00M( 1, J )=s 
41  QQM ( J,  n =s 

IF( RELERR.GT.O.  i ) RCLERR=0.1 
T HR  E SH=0 . 1*R  EL  E RR 

C SUBSPACE  EIGENVALUES  W AND  EIGLNMATRIX  0 
-jO  CALL  JACOBI!  IQ,  ITM.'.X,  THRESH) 

SORTING  EIGENVALUES  IN  INCREASING  ORDER 
IF(MOO(  ITER- 1, l 1) )6Q, 80,60 
RELATIVE  ERROR  CHCCK 

6 ) WL  T = W ( IP) 

RELERR=DABS( l.-WLALT) 

IF! ITER.GT.ITMAX ) SO  TO  65 
IF!  R El  ERR-ERR)  65,65,  70 
C GETTING  EIGENVECTORS  IN  ORIGINAL  SPACE 
6.  I ENG  = l 

DO  66  I = 1 ,N 
DO  66  J=l,IO 
66  Y ( I, J » = X ( 1,J) 

IRANSFORMING  INTERMEDIATE  VECTORS 

70  DO  71  I = 1 , N 
DO  7 1 J = l , l 0 
S = O.I)  CO 
DU  72  K*  l, IQ 

7 2 S = S*Y( I ,K  )*0!K, J ) 

71  X! I, J ) = S 
IF!  I END  ) 75,  75,  80 

7 j DO  7)  1 = 1, N 
DO  7)  J = l , IQ 

7 ) Y(I,J)=X(I,J) 

WL  = WL  T 
GO  TU  8 

IbO 


? . »..  • + 


i 


( 


C SORTING  ROUTINE 

80  I OH  = 1 0-  1 

00  81  I I = l , I QM 

fiM  I 'J  - W ( | (| 

IMIN  = 1 1 

1 I 1= 1 1 ♦ 1 

DO  0 2 1 = 111,10 
IFIWMIN.LT.WI  I)  ) GC  TO  8? 
nlM  I M =W  I I ) 

I M I M = T 
8 2 CONTINUE 

I F ( IMIN.CO.il)  GO  I i.  81 

S = WI  I I I 

WIN  ) = W ( IMIN  ) 

W ( I M I N > = S 
UO  83  J = 1 » N 
S = X I J , 1 1 ) 

XI J,  I I )=X(J,  IMIN) 

XI  J,  IMIN  ) = S 
0)  CONTINUE 

81  CONTINUE 

( F ( IENC'1  60,60,00 
C NORMALIZING  EIGENVECTORS 
00  DO  91  J=  1,  IQ 
s=o.n  oo 

DC  9 2 I = 1 , N 

92  S=S*X(  I , J I * X ( I , J ) 

s= i.d  oo/dsqrti S ) 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABlil 
fBUM  (XlPY  EURUISHEU  TO  LOC  


DO  9 ) I = 1 , N 
) i xu,j)  = xn,j)*r, 

91  CONTINUE 

C PRINT  OUT  TOR  INFORMATIONS 

WRITE (6, 6000)  ITER,KELERl,(W(I) ,1=1,10) 

6000  r OR  M A T ( / • ITER  = • , I 5 , 5 X , •lELERR=*»tl  1.6/’  C I GENVALUES • , I 5E l 5. 6 ) ( 
11X8=10 
RETUR  1 
END 

SUBROUTINE  JACOBI  IN, I TMAX, THRESH) 

IMPL ICI T KEA_*e  ( A-H.O-Z) 

COMMON/AS/XCLI  06,  2A),AMAS2<  36,  SO  I , Z M I 36,  50 ) , DK I ( 1 2 , 36  ) , K 1 1 UB 
1«  I 3 ) 

COMMON/C  1/Z ( 72,  2 ) , Y I 72,  2),W(  ?),UM(  1,  D.IETM  7) 

t/C3/  XK ( 2,  2 ) , XM ( 2,  2 1 , P ( 2,  21 
C SOLVE  XK  * P = XM  * R * D I A G I to  ) FOR  ALL  E I GEM  VALUES  AND  VECTORS 
DO  1 t=l,N 
DO  2 J = 1 » N 
2 <>(  I,  J )=0. 

1 "I  I,  I 1=  1 . 

NM 1 =N- l 
I SM AL  = 0 
l T ER  =0 
IOC  C FMX  =0 . 

DO  10  l = 1 k N M 1 
X M I = X M ( 1,1) 

XK I = XK  I l,|) 

I P 1 = I 4 l 
DO  10  J = I P 1 , N 
XMJ.XMI  J,  J | 

XK J=  XK ( J,J) 

XM I J =XM ( I , J ) 

XK  1 J = XK  ( I , J ) 


THIS  PACE  IS  BEST  QUALITY  PRACTICABLE 

^FM=XmI  J*XMI  J/XMI  /X«J  FBQH  COPY  EURJlISHfiD  TO LDQ  ■»» — 

CFK=XKi J*XKI J/XK[/<KJ 
CF=DMAX  l (CFM.'-.f  K ) 

IFCCFHX.LT.CF)  CFMX^CF 

ificf.lt .o. i* thre si i ) cn  to  u 

r\K  I = XK  1 *XMI  J-XM  |*XK  I J 
C.KJ=XK  J*XMI  J-XMJ*XK  I J 
3K2  = ( XK  I *XMJ-XK  J*X  ’!  )*0.5 
C>X  = BK?*QK2*0K  I*BKJ 
IFISX.LT.O.)  SX=0. 

X = BK2*()SIGN<  DSURTIsX)  ,BK2) 

OAM=-BK  ! /X 
Al  P * B K.  J / X 
D'J  2 Ci  L = 1,‘J 
IK  = XK( L , I I 
r m = x M ( l , i ) 
ip  = p i l . i ) 

XK(  L , I ) = TK  *XK  | L , JK-.iAM 
XK(L*J)=rK*ALP+XK(L»J) 

XM( L , I I = TMtXMtl  , J )*  iAM 
XM(L, J) =TM*ALP*XMII  , J) 

f*cl,  I > = tp*  P(i. , j )*;;am 

P(L  , J I = IP*ALPf  P(l  , J) 

/('  CUNTnUL 
jn  2 1 i - 1 * j 
T K = X Y ( | , L ) 

IM=/P<  1,11 

XX  ( J ,|  ) = rKOAM*  XK  ( J ,L  ) 

XK(  J,t  1 -XK(J»l_)+ALP*-TK 
XM(  I ,1  I - r*UCAM*  XM(  J ,L  ) 

X»M  J,l  I =/M|  J,L)+ALP*TM 
21  CJNCriUI 

I r mai  I MAI  ♦ l 

u (.Tirnu! 

i r i ' - 1 1 ; i<  ♦ i 

I I ( ci  «/  .i  r.  niRt  sh)  co  to  aa 

If  I IH  J .1  T.ITMAX)  )fi  TO  10(1 
44  I,  I I - 1 ,w 

Will  XMLtL)/Xtf(L,L) 

X^J  DAP.CIXHI  L,L  ) ) 

r - 1 ./uvjktc  xmj)  . 

HO  JO  HM/I 
P(M*I.  )=P(M»L  ) * T 

JO  CONTfNIj: 

RL  r U'< ' 1 
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Example: 

Closed  Tail-Boow  with 

6 Damage  Conditions 
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D.2.  Listing  of  the  Program  DIMCO 


//FSSOS  JOB  ( , 30, 30,2001 1 ,' 01  NT  QUO' , T IME*25  JOB 

/♦MESSAGEL  PLEASE  INTERPRETE  MY  OUTPUT  PUNCHED  CARDS 

//  EXEC  F0RTCLG,REGICN*150K»TIM£=25 
//FORT. SYS  IN  OD  * 

INTEGER  BNC*SN»C0NS1»C0NS2,C0NS3,C0NS9,C0N  S5, CONS 9, CONS  B , PN , SNN 
DIMENSION  NJIICI ,NBJ( 10) ,NCB(  10 ) , N IC ( 1 0 I ,N BW1 ( 1 01 , NBW2I  10 1 , N8W3I 10 
1 ItNILJI 101 

DIMENSION  NMI5C) , NG I 50 ) , NWl 50  1, MEB ( 5 0 ) , MEF I 50 1 
DIMENSION  ITYI3) 

INPUT  SOME  CONTROL  INFORMATION  FOR  ALL  SUBSTRUCTURES 

REA0I5»32)NN»NSU»NDAM*NLC»NV*NCC»BNC ,NBW ,NPH,NSD, I TE,NBL JtNOMT  , 

LL INK , IL  IM 

REA0I5, 32)  ITYI  1),  ITYI2), ITYC  3) 

CONTROL  INFORMATIONS  FOR  EACH  SUBSTRUCTURE 

I ET*  3 
KK*  0 

DO  30  K*1,NSU 

READI5, 321NJIK  ) ,NB  J 1 K ) ,NCBt  K ) ,N1CIK)  ,N8M  UK),  NBW2  I K ) ,NBW3I K ) ,N1LJI 
2K) 

3 2 FORMAT  1161 5) 

DO  31  J*1 » I ET 

IFI ITYI J) .EQ.O IGO  TO  31 

KK=KK+l 

READ  1 5 , 32)NMIKK) ,NGI KK ) , NWIKK ), MEB IKK) , MEF ( KK) 

31  CONTINUE 
30  CONTINUE 

INITIALIZED  SOME  VARIABLES 

NGU* -999 
KK=0 
CON SI* 1 
C0NS2*  2 
C ON  S 3 * 3 
CONS*** 

CONS 5= 5 
CONS 9= 9 
C0NS8*B 

CALCULATION  OF  ALL  SUBSCRIPTS  USED  IN  DIMENSION  STATEMENTS 


DP  l 1*1, NSU 

00  1 J * 1 , 1 ET 

IFI ITYI J)  .EQ.O  IGO  TO  1 

KK=KK* 1 

IFI NGI  KK ) .GT.NGU)NGU*NGI KK  ) 
1 CONTINUE 


l?l 
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KKU=NSU*l TE 
NB  JL = -999 
NClL=-999 
NCBL  =-999 
NL J=NBL J 
NU3  = 0 
NU33=0 
NGG*0 
ME»0 
NCE  = 0 
NSE  = 0 
M8=-999 
K30UP=  3 
NJKK=0 
NCI  1=0 
KK=0 

on  2 1=1, NSU 

I F ( NB J ( I ).GT.NBJL)NBJL=NBJ<  1 I 
IF  (NIC(I).GT.NCIUNC  IL*NICII  I 
IFCNCBI I ).GT.NCBL)NCBL=NCB( I ) 
IFINILJ  < II.GT .NLJ)NLJ  = NILJ(  I ) 
MI3=NU3»N8W3(  I I 

IFINBW3I I >.GT.NU33>NU33=NBW3(  I) 

DO  1000  J = 1 , IE  T 

IF  ( ITYI  JI.EQ.OIGO  TO  1000 

KK*KK«-1 

NGG*  NGG+-NG  ( I I 

GO  1011001,1002,1003), J 

1001  NTF=  NT  E ♦NH ( KK ) 

IFINTE.GT ,M8)M8=NTE 
GO  TO  1000 

1002  NCf=NCE*N'1(KK) 

IF! NCE.GT ,M8)MB=NCE 
GO  TO  1000 

1003  NSF=NSE*NMIKK) 
IF(NSE.GT.H8)MB=NSE 

1000  CONTINUE 

K3DUP=K3DUP*NJ (I ) 

NJKK*NJKK+-NJ(  I ) 

IF1NICI  I I.GT.NCI I)NCII=NIC< I ) 

2 CONTINUE 

NMT=NTF*NCE»NSE 

K3EX=NTE 

IF ( NCE.GT . K3EX )K3EX=NCE 

IF I NSE .GT.K3FX )K3EX*NSE 

SN=2*NN 

I 108=2*SN 

PN=  2*SN 

Kl=NCIL 

IF(NV.GT.K1)K1=NV 

K2=NU3 

IF1NS0.GT.K2)K2=NS0 
K 30UP=  K 3DUP*SN 
K3=K30UP 

IF1NPH.GT .K3)K3=NPH 

IF(K3EX.GT.K3)K3=K3EX 

K4=NPT 

IF(NPH.GT.K4)K*=NPH 

K5*BNC 

IFINCIL.GT.K5)K5«NCIL 

K6=NBW 
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IFC  NU3.GT.K6)K6=NU3 
K66=NBW 

IFCNU33.GT.K6A )K66=NU33 
K7=NCBL*NLC 
I F ( NSD. GT .K  7 IK 7=NSD 
K9=NCBL 

IFCNSD.GT.K9|K9=NSr> 

K 10* NC  IL 

IFC NSD.GT .K10I K10=NSD 
K11=NV 

1FINPH.GT.K111K1I=NPH 
IF< NCC .GT.KllI Kll=NCC 
LEN=-999 
1101=0 

00  11  K A = l » NSU 
00  11  1 = 1,  ITE 
1101=1101*1 

I F ( MEF ( 1 101 ).GT.LFN)LEN=MEFC  I 101 1 
11  CONT INUE 
K 1 1 8 = 1 E N 

1F(K11.GT.K118)K118=K11 
K 1 2 = 3 

IFC  NLC . GT . K 1 2 1 K12  = NLC 
K13*NMT 

IF!  NPH.GT.K13) K13  = NPH 
K20=NMT 

IF ( NCC .GT .K20I K20=NCC 

IFCNSD.GT.K20) K20=NS0 

K2l=  ITE 

K22=NDMT 

K26=M8 

IFCNV.GT.K26)K26*NV 
1102=3*NTE*Z7*NCE+12*NSE 
1103=NTE*NCE*21*NSE 
1 104=6+NTE  *<,5*NC  E*2  1*NSE 
I 105=6*NTE*9*NCE*6*NSE 
I106=NTE 

IF ( NJKK.GT.I10 6 1 1 1 06  = NJKK 

1 107=NC 1 1 

N'JS=NS'J 

IFCC0NS2.GT .NUSINUS=C0NS2 
IPDAM*NOAM*  1 
IETC=NV* I PDAM 

TO  A VO  1 0 SUBSCRIPT  EQUAL  ZERO 


1 100  =ND AM 

IFC NOAM. EQ. 0)1 100=N0AM*1 
IFCL  INK. EQ. OIL  INK=1 
IFINCI I .EQ.OINCI  1 = 1 
IF(K22.EO.O)K22=1 
IF(NCIL-EQ.O)NCIL=l 
IFCNU3.EQ.0INU3*! 

SNN-SN 


IFC  IPDAM.GT.SNN)SNN=IPOAM 
IFC  NTF . FQ. 0 )NT  F=1 
IFCNCE.EQ.OINCE-I 
IFCNSE.EQ.O)NSE«l 


BEGIN  TO  PUNCH  ALL  DIMENSION  STATEMENTS  ON  CAROS 
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s bkst  (UAiin  FRlCtt«“* 


WRITE*  S 
WR I T E I 5 
WRITE16 
WRITE  <6 

writei* 

WR l T E I 6 
WR1 TEI6 
WRITFI6 
WR  f T E < 6 
WRITFI 6 
WRIT F (6 
IS9 

WR I T E ( 6 
WR I T E 1 6 
WRl T E 1 6 
WR  I T E ( 6 
wRITEI 6 
WRl TE! 6 
WRITFI6 
WRITE*  6 
WRITE! 6 
WR I T E ( fc 
WRITE!  6 
WRITE *6 
WRITE! o 
WRI TF! 6 
WRIT  El  6 
WR  I TE  ! 6 
WR  ITE1 6 
WRITE  (6 
WRITFI6 
WRITEI6 
WR I TE 1 6 
WRITE16 
WRITE  16 
WR  l TE ( 6 
WR I TE 1 6 
WRITE16 
WR I TF 1 6 
WRITE! 7 
WRITE! 7 
WRITE! 7 
WRITE  17 
WRITE!  7 
WRITE! 7 
WRITE! 7 
WRITE! 7 
WRITE! 7 
WRITE! 7 
WRITE! 7 
1S9 

WRITE! 7 
WRITE! 7 
WRITE! 7 
WR  I T E 1 7 
WRITE! 7 
WRITE! 7 
WRITE! 7 
WR  ITE!  7 
WRITE! 7 
WRITE!  7 


AOIBNC ,NLC , NGU, KKU, IL  I M, C0NS2, N V , I ET 
A 1 ICON  SI  , IL I M, 1 108, IE  T,  NBJL  , NS  J , L I NK.CONS 2 , NL J , I ET 
A 2 I CON  S2  • I P 0 AM 
83) 

BA) 

A3  ) NSU , KKU, KKU, NSU,  NS L, NSU, KKU 
AA  ICON  SI ,NSU,NSU,NSU,KSU,NSU,KKU,KKU 

AS  )CQN  S9 , C0NS9 , C0NS9  » C0NS9  ,C0NS9 , C0NS9  * C0NS9»  C0NS9  , K20  , CON 

A6IC0NS1 * CON  S9  f C 0NS9 
A 7 ) NGU  , KKU, MB, K 2 l, NGU, KKU,  1102 
A B I CONSl « 1 10  3, I ICA, l ET.M8 , K2 1,M8 ,K  21,  M8 
A9 I CON  S2  » K2 It  NGU  ,KKU»K8,K2l» IL05,IET,IET 

50) C0NS3,M8,K2l 

*>l)  CON  Sly  CONSl, IPOAM,  IPOAM , I PD AN , I PDAM» IPOAH 

52  ICON  S 1 1 K 2 2 y IPDAM,K22,KKU,I 100 , NS U, I POAM 

53)NSD,C0NS8»NGUyKKU»NSD,NCC 

5A ICON  SI, CONSl, CONSl, CONSl , CONSl, CONSl 

55  )NGU»KKU»  BNC 

55  I NCI  L,NLC  ,NSU,M8,K2  1,  NGU  ,KKl) , M8 , KKIJ,  NGU 

57 ) CON  SI ,KKU 

58) NSD,NSU,NS0,NSU,NLC 

59)  NGU  *KKU,NGU*KKU»  NG  C , KKU  ,K l , K2 , NC l L , NSU 

60)  CONSl, NV 

61 >NCI L,NC8L,NSU,NC IL , NIC , NSU, BNC, NBW, BNC , NLC 
62  )M8, K21 ,NTE,NLC,NCE  ,NLC,CONSA ,NSE ,NLC ,C0NS3 
63IC0NS1 ,NV,NUS,NPH,Me, K21 ,K3 
6 A ) I 106,  NSU , NPH, NPH , K A, NV , NV 

65) K5»K66»K5,K7*BNC*K9, NC 1 I ,NU3,NSU 

66) K10,K9,KU,Kl2,Klie,K12,KU,K26 
6 7 ICON  SI ,Kl 3, MB, NSU , NCBL ,NSU 

68 ) NGG , NSO 

69INCC , CONS  2 , NCC ,CONS2,CONS2 , CONSl , CONSl, SNN 
70)  CONS2,CONS2»CONS2  ,C ONS  2 , C0NS2, CONS 2 
171 ) IE  TC, IPOAM, I POAM 

85) 

86) 

81  I 
82) 

AO) BNC  »NLC , NGU, KKU, IL  IM,C0NS2,NV, I ET 
A1)C0NSI,ILIM,IIQ8,IET»NBJL, NSU ,LI NK,CQNS2,NLJ, I ET 
A2 JC0NS2, IPOAM 
83) 

8A ) 

A3 ) NSU, KKU, KKU, NSU, NSL, NSU, KKU 
AAJCON  SI , NSU, NSU, NSU, KSU, NSU, KKU, KKU 

A5)C0NS9,C0NS9,C0NS9,CQNS9»C0NS9»C0NS9»C0NS9,C0NS9,K20*C0N 

A6 )CON  SI ,C0NS9,C0NS9 
A 7 > NGU  ,KKU , M8 , K2 1 , NGU  ,KKU, 1102 
A8)C0NS1 ,1103, IlOA,IET,M8,K21,Mfl,K21,M8 
A9)C0NS2,K21 , NGU ,KKU , R8 , K2  1, 1105, I ET, I E T 
50  ICON S3,M8»K21 

51 ) C0NS1 , CONSl , I POAM,  IPOAM, I POAM, I POAM, IPOAM 
52  ICON  SI  ,K2  2,IPOAM,K2  2,KK'J,I  100 , NS  U,  I POAM 
53)NSQ,CONS8, NGU ,KKU,KSO,NCC 

5A  ICON  SI, CON  SI, CON  SI,  CONSl  , CON  SI  *C  GNSl^jg  jg  BBS!  QUALITY  PRACIlCABjhS 

55)  NGU, KKU,  BNC  / f «/  J«MI  OOPy  Wfpisum  M>flDQ  


WR  ITE! 7,56)NC1 1 ,NLC ,NSU,M8,K2  l.NGU ,KKU,  M8,  KKU, NGU 

WRITE!  7*57  ) CON  SI  ,KKij 

WRITE! 7,58) NSD,NSU, NSO,NSU, NLC 

WRITE!  7,59  )NGU  , KKU, NGU , KKU , NG U, KKU ,K l , K2 , NC I L , NSU 
WRITE! 7,601  CONS  I , NV 

WR  ITF1  7,61  INC  I I , NCBL  ,NSIJ,NC  I L ,NLC  , NSU , BNC , NBW , BNC , NLC 
WRITE! 7 ,62)M8, K21 , NT E , NLC , NC E ,NLC , C0NS4 , NS E , NLC , CONS  3 
WRITE! 7,63)CONSl,NV,NUS,NPH,M8,K2l,K3 
WR ITE!  7,64)1  106,  NSU, NPH, NPH, K 4, NV.NV 
WRITE17,65)K5»  K66  , K.5  , K 7 , BNC  , K5,  NC  I I , NU3  , NS  U 
WRITE!  7,66)K10,K9,K11,K12«K116,K12 «Kll»K26 
WRITE! 7, 67  ICON  SI ,K1 3 , M8, NSU, NCBL ,NSU 
WRITE! 7,68>NGG,NSn 

WRITE! 7,69  INCC ,CONS 2 , NCC , CONS  2, C 0NS2 .CONSL , CONS  1 , SNN 
WRITE! 7, 70)  CONS2,CONS2,CONS2  ,C0NS2, C0NS2, C0NS2 
WRITF! 7,17l)IETC,lPOAM,IPDAM 
WRITE! 7,85) 

WRITE! 7,87) 

WRITE! 7, 841 

WRI  TE(  7 , 43 ) NSU, KKU, KKU, NSU, NSL, NSU, KKU 
WRITE!  7, 44  ICON  SI  , N SU,  NSU  , NSU  , NSU  , N SU  ,KKU  , K KU 
WR IT  E ! 7 , 85  ) 

WRITE! 7,881 
WRITE!  7,81  ) 

WRITE! 7,82) 

WRITE! 7,83) 

WRITE! 7,45IC0NS9,C0NS9,C0NS9,C0NS9 , CONS 9 , C 0NS9 , C0NS9, CUNS9 , K20 ,CON 
1S9 

WRITE  ( 7 , 46  I CON  SI ,C  0NS9 ,C  0NS9 

WRITF! 7,47)NGU ,KKU,M8,K2l,NGU,KKU, 1102 

WR l T E ( 7 , 48  I CON SI , I 103,  1 104, IET,M8,K21,M8,K21,M8 

WRITF! 7,49  ICON  S2 , K2 l , NGU , KKU » R8  * K2  1 » I105,IET,IET 

WRITE! 7,50>C0NS3,M8,K21 

WRITE!  7, 56) NCI l »NLC , NSU, M8 , K2  l, NGU ,KKU,  M8  • KKU, NGU 
WRITE! 7,57  ICON  SI , KKU 

WR  I T E < 7 , 6 2 I M8  , K2  1 , NT  E , NLC  , NC E ,NLC  , C0NS4  , NS  E , NLC  ,C 0NS3 

WRITE!  7, 63  ICON  SI , N V , NUS , NPH , M 8, K21  ,K3 

WR ITE!  7,64  1 1106, NSU * NPH, NPH, K4,NV,NV 

WRI TE! 7,66) K10 ,K9,K1 l,K12,Kl 18, K12 ,K11,  K26 

WR I T E ( 7 , 6 7 ICON  S 1 , K 1 3 , MB , NSU , NCBL , N SU 

WRITE! 7,85) 

WRITE!  7,89) 

WRITE!  7,81  I 
WRITE! 7,82) 

WRITE! 7,83) 

WRITE! 7,84) 

WR  ITE ! 7 ,43  I NSU  ,KKU, KKU, NSU, NSU, NSU ,KKU 
WRITE! 7,44  ICON  SI , NSU , N SU , NSU , NSU ,NSU ,KKU ,K KU 

WRITE  I 7,45) C0NS9, C0N59,C0NS9, CUNS9 ,C0NS9 , C 0NS9, C0NS9, CJNS9, K 20, CON 
IS9 

WRITF! 7,461  CON  S1»CONS9,CONS9 

WRITE! 7,47 ) NGU, KKU, M8,K21,NGU, KKU, 1102 

WRITE!  7, 4 8 ICON  SI,  l 10  3,  1 104  , I E T,M8  , K2  1,M8  ,K  21  ,M8 

WRITE!  7,49  IC0NS2  , K2  1 , NGU  ,KKIJ  , MB  , K2  1 , 1105,  I ET,  IET 

WRITF! 7,50)C0NS3,M8,K21 

WRITE! 7,51 ICONSl, CONS l, IP DAM,  IPO AM,  I PO AM, I POAM, IPO AM 
WRITE! 7, 52  ICON  SI, K2 2, I POAM, K 2 2, KKU, I 100 , NSU, 1 POAM 
WRITE! 7, 56  INC  I L, NLC  , NSU, M8 , K2  1 , NGU ,KKU , MB, KKU, NGU 
WKITE(7,57 ICONSl »KKU 
WRITF!  7 , 58  ) NSO  , NSU,  N'SO  ,NSU,  NLC 

WRI TE! 7,59  ) NGU , KKU, NGU , KKU , NGU , KKU ,K l , K2 , NC 1 L , NSU 

I * >; 
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WRITE(7,60I  C0NS1 »NV 

WRITF*  7,61 INC  I L » NC BL  , NSU  * NC I L ,NLC , NSU, BNC, NBW , BNC , NLC 

WRITE*  7,62 )M8, K21 , NT E , NLC , NC E ,NLC , CONS4 , NS E , NLC ,CONS 3 

WRITF* 7,63  ICON  SI »NV»NUS»NPH»M8,K21 ,K3 

WRITE*  7,65)  K5, K66,K5  ,K7,  BNC,  KS,  NCI  I,  NU3,  NSU 

WRITE*  7,66) K10 ,K9 , K 1 1 , K 1 2, K 1 1 8, K 12 , K 11, K26 

WRITE*  7, 6 7 ICON  SI  ,KI  3 , MB,  NSU,  NCB  L , NSU 

WRITE *7, 71 ) NCC ,CONS2 ,NCC,CONS 2, CONS 2 , CON  SI .CONST,  SNN 

WRITE*  7,70)  CGNS2,CONS2»CONS2*CONS2» CONS 2 t CONS2 

WRI TE  * 7 , 85 ) 

WRITE *7, 90  I 
WRITE*  7,81) 

WRITE<7,82) 

WRITE*7,83) 

WRITE*  7,45  ICON S9 , CON S9 ,C0NS9 , C0NS9 ,C0NS9 , C 0NS9 , C0NS9, C0NS9 , K20 , CON 
1S9 

WRITE*  7,46)C0NS1,C0NS9,C0NS9 

WRITE*  7,4  7 I NGU »KKU, M8,K21,NGU  ,KKU, 1102 

WRITE*  7,48  I CON  SI. 1 10 3, 1 104 , I E T , M8 , K2 1, M8 ,K 2 1 , M8 

WRITE*  7»49)C0NS2»K2l» NGU ,KKU,M8,K2l, 110  5, IET, IET 

WRITE*7,50) CON  S3,M8»K21 

WR ITF  * 7,62)M8,K21,NTE»NLC»NCE,NLC, C0NS4  , NS  E , NLC , CON S3 

WRITE*  7,63) CON  Sl»NV,NUS»NPH»M8,K21»K3 

WRITE*7,85) 

WRITE*  7,91 1 
WRITE(7,81  I 

WRITE*  7,65IK5,K66»K5,K7,BNC»K9»NCl I,NU3,NSU 
WRITE*  7,85) 

WR I TE  * 7 , 92  I 
WRITE*  7,81  I 

WRITE* 7,65  IK 5, K66 , K5 , K7 , BNC , K9, NC I I , NU3 , NSU 
WRITE*  7,85) 

WRITE*  7,94) 

WRITE*  7,81  I 
WRITE*  7,82) 

WRITE*  7,83) 

WRITEI7 ,84) 

WRITE*  7,43)NSU,KKU, KKU,NSU,NSL,NSU,KKU 
WRITE* 7,44  ICON  SI , NSU, NSU, NSU, NSU ,N SU ,KKU, K KU 

WRITE*7,45) CON  S9 ,C0NS9,C0NS9 , C0NS9 ,CQNS9 ,C0NS9 , C0NS9,CQNS9 , K20 ,CON 
1S9 

URITE*7,46 I CON SI ,C0NS9,C0NS9 

WRITE*  7,* 7 1 NGU ,KKU, M8 . K2 1 , NGU  ,KKU, 1 1 02 

WRITE*  7, 48  ICON  Sit  I 103,  I 104, * E T, M8 , K2 1,M8 ,K21,M8 

WRITE*  7, 49 ICON S2  , K2  1 , NGU  ,KKU  , K8  , K2  1 , 1 1C  5, IET, IET 

WRITE*  7,50  ICON  S3  tH8 , K2 1 

WRITE  I 7,51) CONS  1 1 CONS  It  I PDAM,  IP  DAM , I ROAM , I PDAM, IPOAM 
WRITE*  7, 52  ICON  SI, K 2 2, IPOAM, K2 2, KKU, 1100, NSU, IPOAM 
•R  I TFI  7,54ICONS1,CONS1,CONS1.CONS1 ,CONS1,CONS1 
•»IH*  7 , *>9  I NGU  ,K  KU , NGU  ,KKU  , NGU,  KKU  ,K  l,  K2  , NC  IL  , NSU 
•WITH  7,601  CONS!  . N V 

» «71,NTE, NIC, NCE, NLC, C0NS4.NSE, NLC, C0NS3 

rn»i  . < rm-il  ,NV,NUS,NPH,M0,K21  ,K3 

. .•  I i ,«-*,«  I 1,K12,«  lie,K12,KH,K26 
• *\*  •■  I I,  NR,  NSU  » NCHL  » N SU 

. - •»'.  .NfC,C7NS2,CONS2,CnNSl  ,C0NS1,SNN 


# ' M I 00  I 
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( WRI TE I 7 , 84 ) 

WRITE! 7,43INSU,KKU, KKU,NSU,NSU,NSU  ,KKU 
WRITE! 7 ,44  ) CON  SI  , NSU  , N SU , NSU  , NSU  »N  SU  ,KKU  ,K  KU 

WRITE ( 7,45 ) CON S9 , CON S9, CON S9, CONS9 »C 0NS9 , C CNS9 , C0NS9, CONS9 , K20 , CON 
1S9 

WRITE! 7,46)C0NS1,C0NS9,C0NS9 
WRITE! 7 ,47)NGU ,KKU, M8 , K2 1 ,NGU  ,KKU , 1 102 
WRITE!  7,  4 8 ICON  SI,  1 1 03,  1 1 04  , I E T , M8  , K2  I , M8  ,K  21  , M8 
WRITE!7,49)C0NS2,K21  ,NGU ,KKU , MR , K2  1,  II05,IETfIET 
WRITE! 7 » 5 0 ICON  S3.M8.K21 

WRITE (7, 54  ICON  SI, CON  SI, CONS l, CONST ,C0NS1  ,CCNS1 
WRITE! 7,56)NCIL,NLC,NSU,M8,K21,NGU,KKU, M8, KKU.NGU 
WRITE! 7 » 5 7 ) CON  SI , KK  U 

WRITE! 7,66) K10,K9,K11, K12.K1 18, K12,Kll,K26 
WRITF! 7, 67  ICON  SI ,K1 3,M8, NSU,NCBL,NSU 

WRITE! 7,69) NCC ,C0NS2,NCC ,CONS2,CONS2 , CONS  I , CONS l, SNN 
WRITE! 7,85) 

WRITE! 7,96) 

WR!TE(7,81  ) 

WRITE! 7,82) 

WRITE! 7,83) 

WRITE!7,B4) 

WRITE! 7,4  3 >NSU,*KU, KKU ,N SU , NS l , NSU ,K KU 
WRITE17  ,44  IC0NS1  ,NSU, NSU, NSU, NSU, NSU, KKU, KKU 

WRITE l 7,45) CON S9,C0NS9,C0NS9, C0NS9 ,C0NS9 , C CNS9, C0NS9, CON S9 , K20,C0N 
1S9 

WRITE! 7,46  ICON SI ,C0NS9,C0NS9 
WRITE! 7,47) NGU ,KKU, M8 , K2 1 , NGU  ,KKU , 1 1 02 
WRITE! 7,48  ICON  SI, 1103,I104,IET,M8,K21,M8,K21,M8 
WRITE(7,49)C0NS2,K21,NGU,KKU,R3,K21, 1105, IET, IET 
WRITE! 7, 50  ICON  S3, M3, K21 

WRITEIT ,51 ) CON SI ,CQNS 1 , 1 POAM,  IPOAM , I POAM , I POAM, 1P0AM 
WRITE! 7, 52 ) CON  SI, K2 2, l POAM, K 2 2, KKU,  I 1 00, NSU, IPOAM 
WRITE! 7, 56  INC  I L,NLC ,NSU,M8,K2  1 , NGU  ,KKU , M8 , KKU.NGU 
WRITE! 7,5  7 ICON  SI , KKU 

WRITE! 7,61  I NC l L , NCR l , NSU , NC I L »NLC , NSU.BNC, NBW.BNC, NIC 
WRITF! 7,62) M8, K21 , NT E.NLC.NCE, NIC, C0NS4, NS E, NIC, C0NS3 
WRITE! 7,63  ICON  SI ,NV»NUS»NPH,M8»K21 ,K3 
WRITE! 7,64) I106,NSU,NPH,NPM,K4,NV,NV 
WRITE! 7,65) K5,K66,K5,K7,8NC,K9, NCI  I, NUT, NSU 
WRITE! 7,66IK10,K9,K11,K12,K118,K12  ,Kll,K26 
WRITE! 7,67  ICON  SI ,K1 3, MS, NSU,NCBL,NSU 
WRITE! 7,85) 

WRITE!7,97) 

WRITEI7.81) 

WRITE! 7,82) 

WRITE! 7,83) 

WRITE! 7, 34) 

WRITE(7,43)NSU,KKU, KKU , N SU , NS U , NSU ,KKU 
WRITE! 7,44)  CON  SI ,NSU, NSU , NSU , NSU.NSU ,KKU ,K KU 

WRITE! 7,45ICONS9,CUNS9,CONS9,CONS9,CONS9,CONS9,CONS9,CONS9,K20,CON 
1S9 

WRITE! 7 ,46  ICON SI ,CUNS9,C0NS9 
WRITE! 7, 47  I NGU  ,KKU , M8 , K2 1 , NGU  ,KKU,  1102 
WRITE! 7,48  ICON  SI , 1 1 0 3 , I 1 04 , I E T , M8 , K2 1,M8 ,K 21 , M8 
WRITE! 7,49) CONS2.K2 l , NGU, KKU, *8  , K2  l » 1105, IET, IET 
WRITE! 7,50)C0NS3,M8,K21 

WRITE! 7, 51 IC0NS1 ,CONS  l , IPOAM,  IP  DAM, IPDAM.IPOAM, IPOAM 
WRI TEI 7, 52  I CON SI ,K22, IPOAM, K22.KKU, 1 100 , NSU, IPOAM 
WRITE! 7, 53  I NSO, CONS 8, NGU, KKU, NSD.NCC 
WRITE! 7,55  I NGU,KKU,BNC 


) 


/ 
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f 


WR  I TE  ! 7 
WRITE!  7 
WRITE!  7 
WRITE! 7 
WRI TE( 7 
WRITE!  7 
WRITE!  7 
WR  ITE!  7 
WRITE! 7 
WRITE! 7 
WRITE! 7 
WRITE! 7 
WRITE!  7 
WRITE!  7 
WRITEI7 
WRITE! 7 
WR  I T E ! 7 
WRITE!  7 
WRITE! 7 
WRITE!  7 
WRITF!  7 
WRITE!  7 
WRITE! 7 
WR ITE! 7 
WRITE! 7 
WRITE!  7 
WRITE!  7 
WRITEI7 
WR ITE! 7 
WRITE!  7 
WRITE! 7 
WRITE!  7 
WR l TE! 7 
WRITE!  7 
WR  I T E ( 7 
WRITE!  7 
1S9 

WR ITE I 7 
WRITE!  7 
WRITE! 7 
WR I TE  ( 7 
WRITE! 7 
WR ITE  1 7 
WRITE! 7 
WRITE! 7 
WRITE!  7 
WRITE! 7 
WR  I TE  I 7 
WRITE! 7 
WRITE!  7 
WRI TE! 7 
WRITE! 7 
WRITE!  7 
WRITE!  7 
WRITE! 7 
WRITE!  7 
WRITE!  7 
WRITE!  7 
WRITE! 7 
WRITE!  7 
WRITE!  7 


56  INC  I L t NIC ,NSU,M8,K21,NGU,KKU,M8, KKU,  NGU 

57  ICONS! , KKU 

58 ) NSD  »NSU»  NSD  »NSU*  NLC 

59)  NGU, KKU, NGU, KKU, NGU, KKU  ,K1,K2,NCIL,NSU 

60)  CO  NS l , NV 

61 J NCIL, NCBL, NSU, NCIL  ,NLC , NSU, BNC , NBW, BNC , NLC 

62) M8»K2l»NTE»NLC*NCE,NLC» CQNS4 ,NSE,NLC,C0NS3 

63) C0NS1,NV,NUS,NPH,M8,K21 ,K3 

64)  1106,  NSU  , NPH»NPH,K4*NV»NV 

65) K5,K66,K5,K7,BNC,K5,NCII,NU3,NSU 

66) K10,K9,K11,K12,K118,K12,K11,K26 
6 7 I CON SI ,K13»M8, NSU, NCBL,NSU 

85) 

98) 

81) 

82) 

83) 

84) 

53 )NSD , CONS 8 , NGU ,KKU, NSD,NCC 
58 ) NSD, NSU, NSD, NSU, NLC 

61)  NC I L , NCBL , NSU , NC I L , NLC , NSU, BNC, NBW, BNC, NLC 

62) M8,K21,NTE,NLC,NCE»NLC»  C0NS4 , NSE  »NLC , CONS 3 
6 3 ) CON  S1,NV,NUS, NPH ,M8,K21,K3 

64) 1106, NSU,NPH,NPH,K4,NV,NV 

65) K5, K66.K5 ,K7, BNC, K9,NC I I,NU3,NSU 

66) K10,K9,KU,K12,K118,K12,K11,K26 
6 7 ) CON  Sl»Kl 3, M8, NSU, NCBL, NSU 

85) 

99) 

81  ) 

82) 

83  ) 

84  I 

43 ) NSU, KKU, KKU, N SU, NS L, NSU, KKU 

44  ) CON  SI , NSU, NSU, NSU, NSU, NSU, KKU, KKU 

45 ) CON  S9,CONS9,CONS9,CONS9,CONS9,CCNS9,CONS9,CQNS9, K 20, CON 


M8 

IET 


S1,C0NS9,C0NS9 
, KKU , M8, K2 l *NGU ,KKU» 1102 
SI,  I 103,  1 104, IET,M8,K21,N8  ,K21, 

52  , K2  1 , NGU  , KKU  « P8  , K2  1 , 1 10  5 , IET, 

53  » M8 , K2 1 

, CONS 8 ,NGU , KKU, NSD, NCC 
L, NLC ,NSU,H8,K2  1 , NGU , KKU , M8 , KKU, NGU 
SI, KKU 

, NSU, NSD, NSU, NLC 

, KKU , NGU, KKU, NGL, KKU ,K 1 , K2 , NCIL , NSU 
NS  1 , NV 

L,  NCBL, NSU, NCIL ,NLC, NSU, BNC, NBW, BNC, I 
K2  1 , NT E , NL C , NC  E ,NLC  , C0NS4  , NS  E , NLC  , C 01 
Sl.NV.NUS.NPH.H8.K21.K3 
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j WR  I TE  ( 7,59)  NGU  , KKLJ,  NGU , KKU  , NGU,  KK'.I  ,K  1 , K2  , NC  1 L « NSU 

WRITE!7,60)  C0NS1»N V 

WRITE)  7, 62 ) M8 , K2 1 » N TE » NLC » NCE  »NLC  , CONS'*  , NS  E , NIC  , CON  S3 

WRITE! 7,63)CONSl,NV,NUS,NPH,Me,K21 ,K3 

WRITE  (7, 64)  1 10 6, NSU, NPH, NPH, K 4, NV,  NV 

WRITE! 7, 66 )K10*K9,K11»K12,K118»K12»K11,K26 

WRITE!  7,67)CONSl,K13,M8,NSU,NCBL,NSU 

WRITE! 7,85) 

WRITE! 7,301 ) 

WRITE! 7,81  ) 

WRITE! 7,82) 

WRITE! 7,83) 

WRITE! 7,62 )H8, K2 1 , NTE , NLC , NC E ,NLC , C0NS4 , NS E , NLC ,CONS3 

WRITE! 7,63 )CON S1,N V , NUS, NPH , M 8, K21 ,K3 

WRITE! 7,64) 1106, NSU ,NPH,NPH»K4»NV, NV 

WRITE! 7,66)K10 ,K9»K11»K12»K118,K12»K11,K26 

WRITE! 7,67  ICON  S1»K13»M8»NSU»NCBL»NSU 

WRITE! 7 ,85  ) 

WRITE! 7, 3021 
WRITE! 7,81  ) 

WRITE! 7,82) 

WRITE! 7,83  ) 

WRI  TE!  7 ,59  )NGU  ,KKU,  NGU  , K KU , NG  Li,  KKU  ,K1,K2,NCIL,NSU 
WRITE!  7,60  CONSl.NV 

WR IT E < 7,62 )M8, K2 1 , NTE , NLC , NC E ,NLC , C0NS4 , NS E , NLC ,C0NS3 

WRITE! 7, 63) CONSl.NV, NUS, NPH, M8, K21  ,K 3 

WRI TE!  7,64 ) 1 106 , NSU , NPH, NPH , K4, NV , NV 

WRITE!7,65)K5,K66,K5,K7,BNC,KS,NCII,NU3,N$U 

WRITE(7,66)K10,K9,K11,K12,K118,K12,K11,K26 

WRITE! 7,67) CON  S 1 , K 1 3,M8, NSU.NCBL.NSU 

WR I TE ( 7 , 85 ) 

WRITE! 7, 303) 

WRITE! 7,81  ) 

WR  IT  E ! 7,62 )M8, K2 1 , NT E , NLC , NC E ,NLC , C0NS4 , NS E , NLC ,C0NS3 
WRITE!  7,63)C0NS1,NV,NUS,NPH,M8,K21 ,K3 
WRITE(7,66)K10,K9,K11,K12,K118,K12,K11,K26 
WRITE! 7,67)C0NS1,K13,M8, NSU.NCBL.NSU 
WRITE! 7,85) 

WR I T E ! 7 , 304 ) 

WRITE! 7, 81  ) 

WRITE! 7,82) 

WRITE! 7,83  ) 

WRITE! 7,84) 

WRITE! 7 ,43 )NSU ,KKU, KKU, NSU, NS L, NSU, KKU 
WRITE! 7,44  ICON  SI , NSU , NSU ,NSU , NSU ,NSU ,KKU, K KU 
WRI TE! 7 ,59 ) NGU, KKU, NGU, KKU, NGU, KKU  ,K 1 , K2 , NC I L, NSU 
WRITE! 7 , 60 ) CON  SI , NV 

WRITE! 7,611  INC IL.NCBL, NSU, NC I L.NLC ,NSU , BNC , NBW , BNC , NLC 
> WRITE!7,72IK5,K66,K5,K7,BNC,K9, NCI I,NU3 

WRITE! 7,73)  CON  SI , NSU 

WPITE1  7,666)K10,K9,K11,K12,K1  18 , K l 2 , K1 1 , K2 6 

WRITE! 7,677)CONSl,Kl3,M8,NSU,NCBL,NSU 

WRITE ( 7, 74JNCC ,C0NS2 , NCC , CONS  2, CON S2 ,CUNS 1 , CCNS 1 , SNN 

WRITE!  7,75) CON  S2,CONS2,CONS2,CONS2 ,CONS2,CONS2 

WRITE! 7,85) 

WRITE! 7,3061 
WRITE!7,81  ) 

WRITE(7,76IK5,K66,K5,K7,BNC,K9,NCI I,NU3 
WRITE! 7,77  ICON  SI , NSU 

WRITE! 7, 78) NCC .CONS  2 , NCC , CONS  2, CON S2 .CONS  1 , CONS  1, SNN 
WRITE!  7,79ICONS2,CGNS2»CONS2. CONS 2 ,CONS2,CONS2 
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toRIT£(7,85) 

FORMAT  PUNCHING  STATEMENTS 

81  F0RMATI6X, 'IMPLICIT  REAL*8  <A-H,0-Z)') 

8?  FORMAT (6X, • INTEGER  S I ZE , BNC , SN' ) 

AO  FORMAT  1 6X  , • D IMENS  ION  PB(  • , I 3 , • , ’ , I 2,  M.  ALP  1 ' , 13,'  « ' , 12, ' ) , DB  IN! • * l 

13, • , ', 12, ' ),00! ', 13, • ),FACCI • ,12,  • ),FB! ' ) 

A1  FORMAT (5X, 11, 13, • I , BET A(  • , 12 , *1 ,CL ( • , 12, • I ,NZ< • , I 3 , » , • , 1 2, • I ,L I NLG 

l( ', 12, • , ', 12,'  ),NJL(  ', 12, '),NW! ' , 12,' ) ,NEGV( • ) 

A2  FORMAT !5X,I1,12,')') 

83  FORMAT I6X, 'COMMON  S TEP ,B NC , SN  ,NBW, SI ZE , NLC , NSU ' ) 

8 A FORMAT ( 6X, • COM MON /V 1 /N l , NC I , NWK , NG K , MA , NUl , NU2 »NU3,Ml»NB»NJK,NC»Nl 

21, ISO, IQl' ) 

A3  FORMAT  I 6X, 'COM MON/ V2/NIC1 • ,12,*) , NM( ',12,'  ),NG< ', 12,'  >,NBMl 1 ', 12, ' 
1 1 , NBW2 ( ',  12, ' ) ,NBW3!  • , 12 , • ) , NM( ' , I 2, • ) , • ) 

AA  FORMAT  I 5X , 1 1 , • NB J ( • , 1 2 , • ) , N J ( • , 1 2 , • ) ,NC B ( • , I 2, ' I, NEW! ',  12, ' I, IQS( • 
1, 12, • ),MEB< ',12, • I.MEF! ',12, • )• J 

A5  FORMAT  I 6X, • C0MM0N/P1/B 1 ( ',I2,',',I2,'),B2(',I2,'('«I2,'),B3(',I2,' 
l,',l2,'),ESF(',I2,',',I2,'),NA(',IA,a),NIl<',I2) 

A 6 FORMAT  I 5X,  1 1 , ' ) , N J 1 ( • , I 2 , • ) , N J2< • , 1 2 , • ) ' ) 

A 7 FORMAT (6X, • COM MON/ P2/X NUU ( * , I 3, • , • , 12, ' ) , E LL ( • , 13 , ' , • , I 2 , • ) , BU ( • , I 

13,', ',  12, • ), STRESS  I ',IA, •) ,TCSM| • ) 

AS  FORMAT <5X, 1 1,1  A, ' ) , TRC  S$P ( ' , I A, • ),XCOST( • , I 2, • ) , IC SSI • , I A, ' , • , I 2 , • 

1 ) , I SAC ( ' , I A, ' , ',12,'), INOC ( ' , IA) 

A 9 FORMAT! 5X, II, • , • , 1 2 , * ) , I GRTI » ,1 3 , • , • , I 2 , • ) ,IGRE(' , I A,' , • ,12 , • ) ,NND 

ICC,  15,  '),LLN!  ',  12,  •),  ITYC  , 12,  •),  ICSSMI  •) 

50  FORMAT! 5X, 11,1  A,* ,' ,12,' )' » 

51  FORMAT !6X, ' COMMON/ P 3/ EVEC  C , I 3, • , • , 12, • ) ,RRF! • , 12, • ) ,RDl  IM ! • , 12,  • ) 
l,RSL(',I2,'),RSUl',I2,'),RLQAC!',I2,')'l 

5 2 FORMAT (5 X, I 1 , » »R  EOUC ( ',13, • ), NDOFI ',12, • ) , NOMI • ,13,' ) ,NBDAM  ! • , 12 , • 
1,', 12, ' ) , K I I DAM! ', 12, ' ,'  ,12,  • )• ) 

5 3 FORMAT! 6X, 'COMMON/PA/I NF! • , 13  ,' , • , 12,' ) ,NGV! • , I 3, • , • , 12 , • ) , IN01 • , I 
13,'  ) , NT  I SP ! ',13,'  » • ) 

5 A FORMAT! 6X, 'C0MM0N/P5/YK! • , I 3 , • ) , YM ! • , 1 3 , • I , SK ( • , I 3 , • ) , SM 1 • , 1 3, • ) , E 
1YI',I3,') ,SG( • , I 3, • I • ) 

5 5 FORMAT (6X, 'COMMON/ Rl/BL I • , I 3 , • , ' , I 2, ' ) , DLI B! • , I 3, ' ) • ) 

56  FORMAT! 6X, 'COMMON/ R2/PI i ',12, ', ' ,12,', ' , 12,' ),RR! ', IA, ' , ', 12,' 1,E( 
1'»I3,*,',I2,'),MN('»IA,',',I2,'), NOM !',I3, ',') 

57  FORMAT! 5X, 11,12, ')' ) 

5 8 FORMAT ! 6X , • COM MON /R A/ I IL 1 ',13,',',  12,' I ,KLC! ', 13, ' > , IOK ( • , I 2 , • ) , NO 

1 ! ' , I 2, ' )•  ) 

5 9 FORMAT ( 6X, 'C0MM0N/R5/B! • , 13, • ,' , 12 , • ) , S L < ' , I 3, • , • , 1 2, ' ) , SU(  • , I 3, • , 

1 ' , 1 2, ' ),DP8!',  13, ',',13,'  ) , DL  IM!  ',12, ',',12,')') 

60  FORMAT! 5X,  II,' ,SS! ',  13,' )' ) 

61  FORMAT !6X, 'COMMON/ Al/O I • , 12, ' , ' , 1 3 , ' , ' , I 2 , ' ) , Z 1 1 ' , 1 2 , ' , ' , 1 2 , ' , ' , 1 2 
1,' ) ,C! • , 13,' ,' ,13, ' ),ZB! ', I 3,  ', ', 12, • )' ) 

611  FORMAT  ( 6X,  • COMMON/ A 1 /G I • , 12,  ',',I3,',',I2,'),ZH',I2,',',I2,',',I2 
l,'),C!',I3,',',I3,'  ),ZB!  ',I3,',',I2,')') 

6 2 FORMAT 16X, 'COM  MON/ A3/BR! • , I A,  ', ', 12, • ) , TRS F ! • , I A, • , • , 12 , • ) , C STF 1 • , 

112, '•'•12,',', I2,'),SSPF(',I2,',',I2,*,',I2,'),*) 

63  FORMAT !5X, II, • Z( ', 13, , 12, ' ),  OZE (',13,') ,MP! • , I A, • , • , 12,' ),ND! ', 
115, • )'  ) 

6 A FORMAT 16X, • COMMON/ A A/X 1 • , I A , ' ,' , 1 2 , • ) ,OLP!  • , I 3, • ) , OLPH! • , I 3 » • ) , T! • 

1,IA,'),WM!',I3,' ),R0!',I3,')'  ) 

6 5 FORMAT! 6X, 'C0MM0N/A5/0! • , 1 3 , • ,' , 13  , • ) , OS ! • , I 3, • , • , 13 , • ) , A2 1 • , 1 3, • , 
l',I3,'),0KI(',I2,',',I2,'),KI  IUBWi',12,'  )'  ) 

66  FORMAT! 6X, 'COMMON/ A6/0PZ! • , l 3 ,' , • , 13 , • ) , ZZ 1 • , I 3 , • , • , 12,  • )• B E ! • , I A, 

1',', 12, • ),*( ',  13, • ) ,H< ', I A, • ) ,VVi ' ) 

6 66  FORMAT  <6X, 'COMMON/ A6/0PZ!' , I 3 ,' , • , 13 , • ) , ZZ ! • , I 3,  • , • , 12, • ) , B E I • , I A, 
1',',  12,  • l»FC  , 13,' ) ,HI  ',  IA,'  ) ,VV!'  ) 


I O S\ 


FORMAT ( 5X 
FORMAT ( 5X 
FORMAT (6X 
FORMAT ( 6X 
1.  12, ' ),DM 
FORMAT ( 5X 
1,12,  ')• > 
FORMAT !6X 
1,12,*), DM 
FORMAT ( 6X 
113,*  , • ,13 
FORMAT ( 5X 
FORMAT (6X 
1MC',I3,', 
FORMAT ( 5X 
1 1 2 , • » • » 
FORMAT ( 6X 
113,' ,' , 13 
FORMAT ( 5X 
FORMAT ( 6X 
1MC  , 13,  • , 
FORMAT! 5X 
!,'»•) 


11,1*,'  ) , Y ( ',16,',' 
II.I'I.'I.AISU,')' 

• COMMON/ A 7/OPX  I • , i 3 

• COM MON/C1/XEIG!  • , 1 
',  13,', ', 13, •) , I fc’  T ( 
•WC3/  QQK I • * I 2, ' * • 

• COM MON /C 1 /XE I G! • , I 

• ,13,' , ' , 13,'  ) , IET  A 
•COMMON/  A5/XCL!  ' , 13 

• I, DM  ( • , 12,  ',  ',  12, 
II,' W( ',12,'  1'  I 

• COMMON /C 1 /X ( • , 13,  ' 
, 13,  • ) , I E T A ( ' , 12,  ' ) 

• $/C  3/  QQKI ',12,',' 

•COMMON/A5/XCH  ' ,13 
' ),DK[ ( ',12, ',  ',  12, 
11,'  M<* ,12,'  )'  ) 
•COMMON/C1/Z ( ' , 13, • 
, 13,  • ) , I E T A ( ',  12,  • » 

• $/C  3/  XK(  • , 12 , 


c , ■ It  t * , i j,  ■ , 

2,'  ) , NZC ( • , 13, ', 
, ',  13,')  • ) 

' ,' ,12,'  1 , V XE  IG( 

12, •)  •) 

2,  ' ),QQMC  ',  12,  ', 

' ,' ,12, ' ), YXEIGl 

, 12,'  )'  > 

, ',  13,' I, AMAS2C ' 
,KI  IUB'  ) 


2,' I , QQM ( ' , 12,', 

,',  13,'  ) , AM AS2 ( ' 
,KI  IUB'  ) 

, 12,'  I , Y ( ',  13,', 
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FORMAT (6X, 

•C0MM0N/C6/ETC  !• , 16 

85 

FORMAT! 6X* 

• ****************** 

86 

FORMAT ( 6X, 

MAIN') 

87 

FORMAT ! 6X , 

• $«$$* 

VAR  I • ) 

88 

FORMAT! 6X, 

• i(t(( 

ELESTF  ' 

89 

FORMAT I6X, 

• *$tts 

STIFFM' 

9C 

FORMAT  I 6X , 

• )tt tt 

RECALL' 

91 

FORMAT I6X, 

• )tstt 

OECUPP' 

92 

FORMAT ( 6X , 

' ms$ 

SOLDUP' 

96 

FORMAT! 6X, 

• (tut 

MKYS* ) 

95 

FORMAT !6X, 

' Hitt 

OEFREQ' 

96 

FORMAT! 6X, 

• tt$i( 

Z8Z  IEF ' 

97 

FORMAT ! 6 X , 

• m$( 

CONST' ) 

98 

FORMAT ! 6X , 

ABSMAX' 

I 

99 

FORMAT ( 6X , 

• mu 

GENC'  ) 

300 

FORMAT ! 6X, 

• (t$tt 

DELBE'  ) 

301 

FORMAT! 6X, 

• tttn 

DESVV*  ) 

302 

FORMAT  <6X, 

• $$($$ 

SDD ' ) 

303 

FORMAT (6X, 

• %%%%$ 

SOLVEL' 

) 

3 06 

FORMAT  1 6X, 

• (((» 

SUBSP' ) 

306 

FORMAT I6X, 

• $»$»$ 

JACOBI* 

) 

I2,'),XM(  ',  12,',',  12,'  l,P(  ',12,',  ',12 

,' J , T E I ( ' , 12, • ) , TE ( ' , 12,')  •) 

******************************  ******  ) 


' »,MSI  • 


) , Q A ( 1 


' I , MSI  ' 
) ,XMI  • , 


12,'  ) , D 


12, 


) » ZM( ' , 


12,  ' ),D 


IOIM*BNC*NLC*NGU*KKU«-ILI  M*CON  S2 +NV  ♦ l ET  «- 1 L l M+1 10  8*1  ET*NBJL*NSU*L  INK 
l*CONS2  *NL  J ♦ IET  MPDAM 
IV2*9*NSU*5*KKU 
IP1*6*81*3*9*K20 

IP2«3*NGU*KKU*M8*K21*I 10  2* 1 10 3*1 104* IET*5* M8*K2 1* 1 105*2* IET 
IP3«U6*IPDAM*2*K22*KKU* 1 100 ♦NSU* 1 PDAM 
IP6*NS0*8*NGU*KKU*NSD*NCC 
I P5  = 6 

IRI*NGU»KKU*BNC 

IR2*NC I L*NLC*N  SU*M8*K2  l*  1«-2*NGJ*KKU*  M8*KKU 

IR6*NSD*NSU»NSD*NStJ*NLC 

1R5*3*NGU*KKU*K1*K2*NCIL*NSIJ*NV 

I A1*NC I L*NCBL* NSU*NC IL  *NLC*NS  U+BNC  *NBW*BNC*NLC 

IA3»2*M8*K21  *N  TE  *NLC  *1  *6*NCE*  M_C  *NSE*NL  C*3  *NV*NUS  *NPH*K  3 

IA6*  I 106*NSU*?*NPH*K6*2*NV 

lA5*K5*Kfc6»K5*K7*RNC*K9*NC  I I *MJ3*NSU 

I A6*K 1 0*K9*K11*K12*K118*K12*K11  *K26*K1  3 *MB *NSU *NC BL *NSU 
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IA7=NGG*NS0 

ICl  = 2*NCC*2*-3*-SNN 

IC3= 1 2 

IC*=IETC*2*IPDAM 

MEMO=  IDIMMV2  + IP1MP2  + IP3*IP4*IP5MR1MR2*  IR  AHR5  ♦ I A 1 *1  A3M  A A*  I A5* 
1 IA6MA7  ♦ I C 1 *IC  3 MCA 
WR l TF ( 6 » 33 ) MEMO 

33  FDRMAT<6X, 'TOTAL  MEMORIES  USEC  = ',16) 

*RITE<6, 200) 

200  FORMATl 10X, • SUCESSFUL  RUN' ) 

STOP 

END 

//GO.SVSIN  00 
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LIST  OF  SYMBOLS 


B 


D 

d 

d 


e 


f 


G<a> 

H 

I 


a subscript  used  to  indicate  quantities  assiciated  with  boun- 
dary coordinates 
a vector  of  design  variables 
lower  bound  on  b 
upper  bound  on  b 

a matrix  defined  in  Equation  2.4-11 
a matrix  defined  in  Equation  2.4-12 

a matrix  defined  in  Equation  2.4-4 

total  number  of  design  variables 
superscript  for  design  variabel  constraint 
total  number  of  damage  condition 
superscript  for  eigenvalue  constraint 

a vector  of  effective  boundary  forces  for  the  entire  structure 

natural  frequency  (Hz) 
a matrix  defined  in  Equation  2.4-18 
a matrix  defined  in  Equation  2.5-12 

a subscript  used  to  indicate  quantities  associated  with  inter- 
ior coordinate 

moment  of  inertia  of  the  i^h  member 
cost  function  defined  by  Equation  2.3-12 
stiffness  matrix  for  the  entire  structure;  (N  x N) 
boundary  stiffness  matrix  for  the  entire  structure;  (n  x n) 

submatrices  of  K(b) 

total  number  of  substructures 

length  or  surface  area  of  the  j1-*1  member  in  the  i**1  group 
equivalent  length  of  the  ith  member 

mass  matrix  for  the  entire  structure;  (N  x N) 
total  number  of  interior  degrees  of  freedom 

number  of  interior  degrees  of  freedom  for  the  rth  substructure 
total  number  of  degrees  of  freedom 
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n 


n(r) 


r 

r 


S(b) 

SB 


s 


W 

Wi 

"i 

W x3 

y(«) 

Z(“) 


4" 

,(a) 

ZI 

6b 

4,<«) 


6 z 


(«) 


6b1,  6b2 


ai 

B(r) 

a3 


total  number  of  boundary  degrees  of  freedom 

number  of  boundary  degrees  of  freedom  for  the  rc^  substructure 

a vector  of  member  forces  for  the  rtl1  substructure 
superscript  for  r1-*1  substructure 

cost  function  reduction  ratio,  needed  in  calculating  the  step 
size 

a vector  of  externally  applied  loads 

a subvector  of  S associated  with  the  boundary  degrees  of  free- 
dom 

a subvector  of  S associated  with  the  interior  degrees  of  free- 
dom 

superscript  for  superscript  for  stress  and  displacement  con- 
straints 

weighting  matrix 

coefficient  of  weighting  matrix  associated  with  ith  design 
variable 

multiplier  associated  with  W 
cartesian  coordinates 

eigenvector  associated  with  Equation  2.2-16 
a vector  of  nodal  displacements  for  the  entire  structure 
a vector  of  allowable  nodal  displacements  for  the  entire 
structure 

a vector  of  boundary  displacements  for  the  entire  structure 

a vector  of  interior  displacements  for  the  entire  structure 

a vector  of  small  changes  of  design  variable  b 
a vector  of  small  changes  in  the  vector  z^ 

a vector  of  small  changes  in  the  vector  z^ 

defined  in  Equations  2.5-9  and  2.5-10 
a superscript  used  to  denote  a damage  condition 
positive  constant  used  to  calculate  the  moment  of  inertia 
a Boolean  transformation  matrix  for  the  rth  substructure 
an  allowable  stress 
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. s(a) 

ab 


AJ*  7f(a)  \ 
Ad,  yf(a)7 
ABBREVIATIONS 
CST 
NLC 
FSODPS 
SSP 
SPSP 
TP(r) 

SOS 

DOF 

DIMCO 


calculated  stress 

material  density  of  members  of  the  i*-*1  group 
Lagrange  multiplier  vector 

components  of  u 

step  size  used  in  Equation  2.5-8 
eigenvalues  associated  with  Equation  2.2-16 

vector  constraint  functions  used  in  Equation  2.5-6 

scalar  frequency  constraint  function  used  in  Equation  2.5-6 

adjoint  matrices  obtained  from  Equation  2.4-28 
»> 

adjoint  matrices  obtained  from  Equations  2.4-28,  2.4-29, 
2.4-24  and  2.4-25 

matrices  whose  columns  represent  sensitivity  vectors  defined 
in  Equations  2.4-27,  2.4-33,  2.4-21  and  2.4-19. 

constant  strain  triangular  elements 
number  ofloading  conditions 

fail-safe  design  problem  with  substructuring 
symmetric  shear  panel 
symmetric  pure  shear  panel 

number  of  element  types  in  the  r1-*1  substructure 
structural  optimization  with  substructures 
degrees  of  freedom 
Dimension  Computer 


185 


